Select Code to Download

open(THING, "$Form{'han'}.txt");
#so far, you have nothing here
#code some stuff to deal with the file
close(THING);
unlink "$Form{'han'}.txt" or die "Couldn't delete $Form{'han'}.txt: $!
+";

{
open NAMES, "$Form{han}.txt" or die "Oh my. File open failed: $!\n";
...
#Delete the file if you want to...
unlink "$Form{han}.txt" or die "Couldn't delete the data file: $!\n";
}

open(THING, "$Form{'han'}.txt");
unlink <THING>;
close(THING);
unlink "$Form{'han'}.txt" or die "Couldn't delete $Form{'han'}.txt: $!
+";