package SomeClass;
  use base qw(SomeOtherClass);
  ...

##</code><code>##

  sub run {
      my $self = shift;
      $self->SomeSub();
  }