use strict;
use warnings;
use subs qw( open );
use Errno qw( EPIPE );

sub open {
   $! = EPIPE;
   return 0;
}

open(my $fh, '<', \my $buf) or die("open: $!\n");