$ perl -e'eval { alarm(1); sleep(3); }; print "Done\n"'
Alarm clock
 $