#!/usr/bin/perl
use strict;
use warnings;

=alternative
BEGIN {
    push ( @INC,"/home/tinyos/Monks/");
}
use My::Math qw(add);
=cut

use lib qw(/home/tinyos/Monks);
use My::Math qw(add);

my $addition = add(19, 23);
print $addition . "\n";

__DATA__

$ perl test.pl
42

##</code><code>##

package My::Math;

use strict;
use warnings;
use Exporter qw(import);

our @EXPORT_OK = qw(add multiply);

sub add {
    my ($x, $y) = @_;
    return $x + $y;
}

sub multiply {
    my ($x, $y) = @_;
    return $x * $y;
}

1;