perl -E"eval{ $SIG{ALRM}=sub{die}; say time; alarm(10); sleep 20; };say time"
1294909100
1294909110