Select Code to Download

open my $infh, "<", "old.txt" or die $!;
open my $outfh, ">", "new.txt" or die $!;
...
}
close $infh;
close $outfh;