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


in reply to A Strange print() predicament.

Or (same idea different way):

use strict; use IO::Null; print "Printing\n"; { local *STDOUT = IO::Null->new(); print "Not printing\n"; } print "Printing again\n";