package TacoBell; 
use strict;
use fooBar;
our @ISA = qw(fooBar); 
 
my $m_Self = undef; 
 
sub new { 
    my ($type) = @_;     
    $m_Self = $type->SUPER::new(); 
    bless $m_Self, $type; 
    return $m_Self; 
} 
 
sub burrito { 
  my $self = shift;
  return $self->__foo("Charles");
   #return $m_Self->SUPER::__foo("Charles"); 
} 
1;