my $f=undef;
  getlock sub {
   unless (-e $filename) {
    open ($f, ">", $filename) or confess;
    binmode $f;
   }
  };
  if ($f) {