$SIG{ALRM} = "sig_test"; alarm(2); $in = <>; sub sig_test { print "2秒経過 [ENTER]で終了\n"; }