eval {
      $var = #setup a network connection...;
      $SIG{ALRM} = sub { flock $fh, LOCK_EX;
                     print $fh "\n"; 
                     flock $fh, LOCK_UN;};
      alarm(60);
    };