perl -e "eval {local $SIG{ALRM} = sub { die qq!alarm\n! };alarm 1;sleep 2;alarm 0;};die $@ || 'nothing'"