use Some::Module qw(the-mascot);

the-mascot();

##</code><code>##

use Some::Module;

my $a = new Some::Module;
$a->animal("parrot");
$a->mascot;

##</code><code>##

$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();
}

##</code><code>##

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

$self->{ANIMAL}

END
}