>perl -e"open my $fh, '', 'foo'"
Unknown open() mode '' at -e line 1.

##</code><code>##

sub myopen {
   my (..., $perlio, ...) = @_;
   $perlio ||= '';

   ...
   open(my $fh, ">$perlio", ...) or die ...;
   ...
}

myopen(..., ':raw:perlio', ...);  # bin mode with buffering
myopen(..., '',            ...);  # default
myopen(...,                   );  # default