# usage:
# script.pl /path/to/infile /path/to/outfile

die "infile not defined\n"  if (! defined $ARGV[0]) ;
die "outfile not defined\n" if (! defined $ARGV[1]) ;

open my $infile, "< $ARGV[0]"  or die "can't read $ARGV[0]\n" ;
open my $outfile, "> $ARGV[1]" or die "can't write $ARGV[1]\n" ;
while (<$infile>) {
  chomp ;
  print $outfile "=>$_<\n" ;
}