$SIG{ALRM} = sub { die "alarm" };