{ package Animal;
  sub speak {
    our $class = shift;
    print "a $class goes ", $class->sound, "!\n";
  }
}

{ package Cow;
  our @ISA = qw(Animal);
  sub sound { "moooo" }
}

Animal::speak("Cow");