package MyPackage;

sub new {
   my ($class) = shift();
   my $self = {};
   return bless $self, $class;
}

sub half {
   my $self   = shift();
   my $number = shift();
   return $number / 2;
}

1;

##</code><code>##

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