Select Code to Download

open(FH,"+<file.txt") || die($!);
@fh = <FH>;
...
seek(FH,0,0);
print FH $fh;
close(FH);