package 'Bar';
use base 'Foo';
sub new {
  my $class = shift;
  my $parent_class_object = SUPER->new();
  ...
}