package FOO;



sub new {

    my $type = shift;

    my $self = {};

    return bless $self, $type;

}



sub baz {

    print "in FOO::baz()\n";

}



package BAR;

@ISA = qw(FOO);



sub baz {

    print "in BAR::baz()\n";

}



package main;



$a = BAR->new;

$a->baz;

