sub dostuff {
  # you'll want to walk your inheritance tree rather than hardcode this
  foreach my $super (search_isa()) {# <-- you implement :)
    if (my $method = UNIVERSAL::can($super, 'dostuff')) {
      goto $method;
    }
  }
}