Select Code to Download

open( IN, '<', $filename ); # input
open( OUT, '>', 'newfilename.txt' ); # output
...
}
close IN;
close OUT;