Rather simpler would be to run an asynchronous perl one-liner at the end of the script that waits a couple of seconds for the script to terminate and then deletes it like this:

P:\test>type junk.pl
#! perl -slw
use strict;

sleep 10; ## Simulate doing stuff

## Start an asynchronous perl one-liner
## sleep a couple of seconds and the delete the script ($0)
system 1, qq[ perl -e"sleep 2; unlink'$0'" ];

P:\test>junk

P:\test>dir junk.pl
 Volume in drive P has no label.
 Volume Serial Number is BCCA-B4CC

 Directory of P:\test

File Not Found
[download]

Yet another (untested) way would be to schedule the deletion to reboot

use Win32::FileOp qw(DeleteAtReboot);
DeleteAtReboot($filename);
[download]

Jenda,

Thanks, that's exactly what I needed. I can see a really smart and good looking individual wrote this module :-).

Also, I saw in your homenode that you wrote Mail::Sender but you don't talk too highly of it. I use this for any script that I must send mail with (which is quite a few) and it works great. You should give yourself more credit for it, it's really helped me.

Cheers,
Dru