Select Code to Download

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

the-mascot();

use Some::Module;

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

$data = "camel";

...
sub mascot {
         the-mascot();
}

sub the-mascot {
my $self = shift;
...

END
}