#! perl -slw
use strict;
use _424188;

the_mascot();

my $obj = new _424188;
$obj->mascot;
$obj->animal( 'dromadary' );
$obj->mascot;
the_mascot();

__END__
P:\test>424188
Hey, did you know that Perl's mascot is a:

camel


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

camel


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

dromadary


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

dromadary