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;


##</code><code>##

Bareword "Horse" not allowed while "strict subs" in use at C:\Data\perlbootqry.pl line 17.
Execution of C:\Data\perlbootqry.pl aborted due to compilation errors.