package Animal;

use 5.006;
use strict;
use warnings;

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

sub sound
{
    die "'You have to define sound() in a subclass' found";
}