{
	package Animal;
	sub new
	{
		my $class = shift;
		my $name = shift;
		bless \$name, $class;
	}

	sub name 
	{
		my $self = shift;
		ref $self ? $$self : "an unnamed $self";
	}

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

	sub eat 
	{
		my $self = shift;
		my $food = shift;
		print $self->name, " eats $food.\n";
	}
	
}

{
	package Horse;
	@ISA = qw (Animal);
	sub sound {"neigh"};

}

{
	package Sheep;
	@ISA = qw (Animal);
	sub sound {"blahhhhhhhh"};
}

my $horse1 = Horse->new("H1");
$horse1->speak;
print "Horse sounds ", Horse->sound, "\n";
$horse1->eat("hay");
Sheep->eat("grass");
Sheep->speak;