package Bah2;                             
                                          
use lib ".";                              
use Bah;                                  
                                          
use strict;                               
                                          
our @ISA = qw(Bah); # inherits from Bah
                                          
# Create Object class instance            
#my $Object = Object()->new();            
                                          
sub new {                                 
                                          
        my ($class) = @_;                 
        my $self = $class->SUPER::new(@_);
                                          
        $self->{'_bah2'} = 0;             
        return $self;                     
}                                         
                                          
sub printBah2 {                           
        my $self = shift;                 
        print "Bah2\n";                   
}                                         
                                                                                    
1