use strict;
use Bar qw(the_mascot);

my $a = new Bar;
$a->animal("parrot");
$a->mascot;

the_mascot();

$a->animal("firebird");
$a->mascot();

#output
__END__
Hey, did you know that Perl's mascot is a:

parrot

Hey, did you know that Perl's mascot is a:

parrot

Hey, did you know that Perl's mascot is a:

firebird