Select Code to Download

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

sub myopen {
   my (..., $perlio, ...) = @_;
...
myopen(..., ':raw:perlio', ...);  # bin mode with buffering
myopen(..., '',            ...);  # default
myopen(...,                   );  # default