#!/usr/bin/perl

my $tf = 'tmpfile';

open FH, ">$tf" or die $!;
print FH "Test data\n";
close FH;

open FH, "<$tf" or die $!;
unlink $tf;
print "File deleted!\n" unless -e $tf;
print 'File contents: ', <FH>;