local $SIG{ALRM} = sub { print STDERR "hey\n" };