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

my $printfunc;

    # Works
$printfunc = \&main::myprint;
$printfunc->("hello\n");

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

##</code><code>##

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