use strict;

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

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

my $name = "Mr. Ed";
my $horse = \$name;
bless $horse, Horse;
$horse->speak;