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