perl -e 'alarm 3;$SIG{ALRM}=sub{print "Timeout reached\n"}; sleep 10'