$SIG{ALRM} = sub { die "$$ timed out" };
alarm 30;