Select Code to Download

 
    eval { 
        local $SIG{ALRM} = sub { die "alarm clock restart" };
...
        alarm 0; 
    };
    if ($@ and $@ !~ /alarm clock restart/) { die }