% perl -le 'select STDERR; f::f(); package f; sub f { print "Now you see me" }' > /dev/null
Now you see me

% perl -le 'f::f(); package f; sub f { print "Now you don'\''t" }' > /dev/null

(nothing)