Help for this page

Select Code to Download

Select or download this

# from perldoc perlipc

...
    alarm 0;
};
if ($@ and $@ !~ /alarm clock restart/) { die }