#!/usr/bin/perl -w

use strict;
use File::Temp qw(tempfile unlink0 );
use vars qw($fh $filename);

my $template = 'fileXXXXXXXXXX';
my $dir      = '/tmp/';

($fh, $filename) = tempfile($template, DIR => $dir)
    or die "Error creating $filename: $!";
print $fh "\nS'working?\n"
    or die "Error writing to $filename: $!";
close $fh
    or die "Error closing $filename: $!";
print "\nUnlinking $filename\n<ENTER> to continue, CTRL+C to abort.\n";
my $continue = (<STDIN>);
unlink0 ($fh, $filename)
    or die "Error unlinking file $filename safely: $!"