sub the-mascot {
my $self = shift;
print <<"END";
Hey, did you know that Perl's mascot is a:

$self->{ANIMAL}

END
}