sub print
{
    print $value unless $value eq '-';
}
##</code><code>##

>perl -wMstrict -le
"sub print { CORE::print('foo') }
 ::print;
"
foo

>perl -wMstrict -le
"sub print { ::print('foo') }
 ::print;
"
Deep recursion on subroutine "main::print" at -e line 1.
Terminating on signal SIGINT(2)