Select Code to Download

my $pick_real_print = 1;
use vars qw(&printish);
...
CORE::print "Here is the real deal\n";
printish "printing\n";