$file = <FILE>;

##</code><code>##

  open(IN, $ARGV[0]);
  open(OUT, ">$ARGV[1]");
  print OUT <IN>;
  close IN;
  close OUT;