package A;
sub do_something {
  print "Foo\n";
}

package B;
@ISA = ( A );
sub do_something {
  my $self = shift;
  $self->SUPER::do_something();
  print "Bar\n";
}