my $pick_real_print = 1;
use vars qw(&printish);
*printish = $pick_real_print ? *CORE::print :
  sub { print "I'm not really print!\n" };

CORE::print "Here is the real deal\n";
printish "printing\n";