Select Code to Download

my $name = "Mr. Ed";
my $tv_horse = \$name;
bless $tv_horse, "Horse";

my $lost = bless { Name => "Bo", Color => "white" }, Sheep;