Select Code to Download

package MyPackage;

sub new {
...
}

1;

use MyPackage;
my $m = MyPackage->new();
print $m->half(10);