# note: adjusted @EXPORT_OK in place of @EXPORT

package Orig;

use Exporter; 
use vars qw( @ISA @EXPORT_OK );
@ISA = qw(Exporter);
@EXPORT_OK = qw( orig repl ); 

sub orig { 
    print "&Orig::orig runs\n";
    repl(); # this will not call the replaced repl() without help
} 

sub repl { print "&Orig::repl runs (O No!)\n" } 

1;