package Base;
sub do_me {
  my $self = shift;
  print "Base do_me\n";
}
package Derived;
@ISA = qw(Base);
sub do_me {
  my ($self) = @_; # no shift, so we can goto
  print "About to jump...\n";
  goto &{$self->can("SUPER::do_me")};
}
package main;
Derived->do_me;