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