$SIG{ALRM} = sub {
   print "Alarming!\n";
};