[mylibrary1.pl]

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