--------------------------File.pl------------------ 
#!/home/utils/perl-5.8.8/bin/perl -w 
use B; 
use C; 
my $self= new C(); 
 
--------------------------C.pm------------------- 
package C; 
use B; 
our @ISA = qw(B); 
#use base 'B'; 
sub new { 
       my $class = shift; 
       print "$class @ISA\n"; 
       my $self = $class->SUPER::new(); 
       bless $self,$class ; 
       return $self; 
} 
1; 
 
----------------------------B.pm------------------ 
package B; 
 
sub new { 
    my $self =shift; 
    my $hash = {}; 
    bless $hash,$self; 
    return $hash; 
} 
1;