Select Code to Download

my $obj = MyPackage->new("...");
# ...
my @some_list = $obj->some_method("some string");

package MyPackage;
use strict;
...
}

1;

use strict;
use warnings;
...
print "cm='$cm'\n";
my $um = MyPackage::some_utility_method(43);
print "um='$um'\n";

in ctor: 'MyPackage' (name=John Smith)
in some_instance_method: MyPackage=HASH(0x1c905b0) '69'
...
cm='hello from some class method'
in some_utility_method: (43)
um='hello from some utility method'