$SIG {ALRM} = sub {exit};
alarm (30);