my $handle = IO::File->open("/tmp/my$$", "w+");
unlink "/tmp/my$$";