$SIG{ALRM} = sub { die "Seems hung"; };
# 30 seconds
alarm(30);
if (open(TESTFILE, $testfile)) {
  alarm(0); # disable alarm
}