my $x = SubClass->new;  # inherits from SuperClass

$x->method;  # calls SubClass::method
{
  my $pkg = ref $x;
  eval qq{
    package $pkg;
    \$x->SUPER::method;  # calls SuperClass::method
  };
}
$x->method;  # calls SubClass::method