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