Select Code to Download

my $input = 'existing.txt';
my $output = 'new.txt';
...
print $out "\n</pre>\n";
close $out or warn "Error writing $output: $!\n";
close $in;