$| = 1;
$SIG{ALRM} = sub {print "checking"};