use 5.010;
package Bar;

sub new {
    say "Bar!";
    [];
}

package Foo;
    use base qw/Bar/;
    sub new {
      my $class = shift;
      say "Foo!";
      my $self  = $class->SUPER::new(@_);
      bless $self, $class;
      return $self;
    }

package main;
my $bletch = Foo->new;
say ref($bletch);  

__END__
Foo!
Bar!
Foo