#!/usr/bin/perl -w

$SIG{__DIE__} = \&restart;

print "Dying!\n";
sleep(5);
die($!);


sub restart{

print "Restart...\n\n";
exec($0);

}

__END__
D:\projects\test>dietest.pl
Dying!
Restart...

??D:\projects\test>Dying!
Restart...

Dying!
Restart...

Dying!