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: $!";

##</code><code>##

{
open NAMES, "$Form{han}.txt" or die "Oh my. File open failed: $!\n";
$/=undef;
for (split("\n", <NAMES>)) { unlink or die "Couldn't delete $_: $!\n"; }
close NAMES;

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

##</code><code>##

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