E:\>perl
local $SIG{ALRM} = sub { die "alarm!!!!" };
alarm 1;
sleep 10;
alarm 0;
__END__
alarm!!!! at - line 1.