{
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";
}