Select Code to Download

package Orig;
use Exporter;
...
sub orig { print "&Orig::orig runs\n" }
sub repl { print "&Orig::repl runs (O No!)\n" }
1;

package Repl;
use warnings;
...
no warnings 'redefine';
sub repl { print "&Repl::repl runs $/" }
1;

#!/usr/bin/perl
#              client program
...
    
repl();    
orig();

&Repl::repl runs 
&Orig::orig runs