$SIG{ALRM} = sub {print "checking;};
alarm 2;
while (1) {1};