package Base;
sub method1 {
  my $self = shift;
  $self->method2();
}

sub method2 {
  print "Base\n";
}
package Sub;
@ISA = qw(Base);

sub method2 {
 print "Sub\n";
}

package main;
Base->method1;
Sub->method1;
__END__
Base
Sub