eval {
  local $SIG{ALRM} = sub { die "alarm clock restart" };
  alarm 10;
  flock(FH, 2);   # blocking write lock
  alarm 0;
};
if ($@ and $@ !~ /alarm clock restart/) { die }