open IN, "infile.txt" or die "Error in r_open: $!\n";
open OUT, "outfile.txt" or die "Error in w_open:$!\n";
while (<IN>) {
  # do something with each line if you want
  print OUT $_;
}
close IN;
close OUT;