#!perl -w
use warnings;
use Errno qw(EPIPE);
use lib qw(.);
eval "use Test;";

BEGIN {
*{main::open} = sub {
    $! = EPIPE;
    warn "open faked";
    return 0;
};
}

Test::subs();
exit(0);