#!/usr/bin/perl -w

print<<HERE;
Select Option:
[1]: Reverse Place [ Pass:Email To Email:Pass ]
HERE

chomp(my $opt = <>);

if($opt == 1)
	{
	 print "Specify input file: ";
	 chomp(my $in = <>);
	 print "Specify output file: ";
	 chomp(my $out = <>);
	 
	 open A, "<", $in || die $in."-".$!;
	 open B, ">>", $out || die $out."-".$!;
	 
	 while(<A>)
		{
		 $_ =~ /(.+?):(.+?)\n/;
		 print B $2.":".$1."\n" if defined $1 && defined $2;
		}
	 
	 close A;
	 close B;
	}
else
	{
	 print "No option has been specified\n";
	}