package _424188;
require Exporter;

our @ISA = qw[ Exporter ];
our @EXPORT = qw[ the_mascot ];

my $data = { ANIMAL => "camel" };

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

$data->{ANIMAL}

END

}

sub new {
    my $class = shift;
	return bless $data, $class;
}

sub animal {
    my $self = shift;
    $self->{ANIMAL} = $_[0];
}

sub mascot {
         the_mascot();
}

1;