Select Code to Download

open(FILE, "+<$file");
my $temp;
...
print FILE $temp;
truncate(FILE,tell(FILE));
close(FILE);