use Errno ':POSIX';

{
    no warnings 'redefine', 'once';

    local *CORE::GLOBAL::print = sub {
        $! = ENOSPC;
        return;
    };

    print 'test', $/ or die $!;
}