package MyModule;

use vars qw(@ISA);
BEGIN {
   @ISA = ...;
   *MyModule::Super::ISA = \@ISA;
}

sub dostuff {
   goto(MyModule::Super->can('dostuff')) if (...condition...);

   ...
}