What's wrong with leaving &Derived::do_me out altogether?

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

package Derived;
@ISA = qw(Base);

package main;
Derived->do_me;
[download]

It doesn't use goto but the result is the same as far as I can tell.

Update: Okay, ignore me. I got distracted from the original question of how to conditionally jump to a super class.