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

##</code><code>##

#!/usr/bin/perl
sleep(10);

##</code><code>##

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

##</code><code>##

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