I would like to clean the state of the script, close all filehandles etc, and I think the best way is to die(), but then, I would need external program to re-execute the script.

So I was thinking along the lines of:

system("perl -w script.pl");
die();
[download]

Howether, that would be problematic if there would be some resource that cannot be shared, and generally it would be better to have the script execute serially, and avoid the parallel execution of the same script.

To do that, I thought about something like that:

#!/usr/bin/perl
sleep(10);
[download]

or even better:

#!/usr/bin/perl
BEGIN {
sleep(10);
};
[download]

But it looks unclean and seems like it's not a very good solution.

How would correct solution look like?

update It seems that the correct solution is as suggested by tye:

exec( $^X, $0, @ARGV ) or die "Can't re-exec myself($^X,$0): $!\n";
[download]

it seems that besides loading new process image, it cleans up everything I can think of (fds, opened sockets)
Thanks.

UPDATE Howether, this doesn't work that well when you pack your scripts with PAR, then what you get is:

Unrecognized character \x7F at /home/eyck/script.exe Line 1

this is of course because script.exe is not a perl script, thus exec($0,@ARGV) should work in that case.