use Guard;
use File::Temp 'tempfile';

sub frobnicate {

    my ($fh,$name) = tempfile();
    print {$fh} "Hello";
    close $fh;
    my $atexit = guard {
        print "Removing '$name'";
        unlink $name;
    };

    my ($fh,$name) = tempfile();
    print {$fh} "World";
    close $fh;
    my $atexit = guard {
        print "Removing '$name'";
        unlink $name;
    };
}

print "Frobnicating";
frobnicate();
print "Frobnicating done, and cleaned up";

__END__
Frobnicating
Removing 'C:\Users\Corion\AppData\Local\Temp\JPUN_wEVOo'
Removing 'C:\Users\Corion\AppData\Local\Temp\eUuaGV_5sj'
Frobnicating done, and cleaned up