http://www.perlmonks.org?node_id=300578


in reply to !Overriding Builtin print

Under UN*X, the device /dev/full does exactly this. You might try to use tied file handles, I've never used them though.

In Section Meditations