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