Select Code to Download

sub myprint { print "MYPRINT: ", @_; }

...
    # Doesn't work
$printfunc = \&CORE::print;
$printfunc->("hello\n");

sub coreprint { print @_; };
$printfunc = \&coreprint;