package Foo;
    use base qw/Bar/;
    sub new {
      my $class = shift;
      my $self  = $class->SUPER::new(@_);
      bless $self, $class;
      return $self;
    }
... (in main)
$bletch = Foo->new;
print ref($bletch);   # gives "Foo"