alarm 2;
$SIG{ALRM} = \&Finish;
print "Sleep 5\n" ;
sleep 5 ;
sub Finish { print "Sleep 5 sig\n" ; sleep 5 ; print "Timeout reached\n"; }
__END__
Sleep 5
Sleep 5 sig
Timeout reached