my $handle = gensym;
    open $handle, ref ($file) ? ">&". fileno ($file) : ">" . $file
  and binmode ($handle)
      or goto &_drat;