Select Code to Download

my $filename = time();
...
print $doc;                 # This goes to the web browser
print MYOUT $doc;           # This goes to a files
close (MYOUT);

my(@files, $file);
...
      unlink("data/$file");
     }
   }