$ perl -e'alarm(1); sleep'
Alarm clock