package Foo;
sub new {
    my $class = shift;
print "In Foo with '$class'\n";
    return bless {}, $class;
}

package Bar;

@ISA = qw(Foo);

sub new {
    my $class = shift;

    my $self = $class->SUPER::new;
print "In Bar with a self of '$self'\n";
    return $self;
}