$data = "camel";

sub the-mascot {

print<<"END";
Hey, did you know that Perl's mascot is a:

$data

END
}

sub new {
	my $class = shift;
        my $self = {};
        $self->{ANIMAL} = $data;
        bless($self, $class);
        return $self;
}
 
sub animal {
	my $self = shift;
	$self->{ANIMAL} = $_[0];
}

sub mascot {
         the-mascot();
}