local $SIG{ALRM} = sub { die "alarm\n" };