package one;
sub _dosomething {...};
sub AUTOLOAD {...};

package two;
use one;  
@ISA = qw(one);  

sub run {
   _dosomething	
   ...
}