package Base;
sub do_me {
  my $self = shift;
  print "Base do_me\n";
}

package Derived;
@ISA = qw(Base);

package main;
Derived->do_me;