#perl_modules\lib\packages\Calculator.pm
package packages::Calculator;
use strict;
use warnings;
use Exporter qw(import);
our @EXPORT_OK = qw(addition subtraction);
sub addition
{
# Initializing Variables a & b
$a = $_[0];
$b = $_[1];
$a = $a + $b;
print "\n***Addition is $a";
}
1;
#perl_modules\bin\app.pl
use File::Basename qw(dirname);
use Cwd qw(abs_path);
use lib dirname(dirname abs_path $0) . '/lib';
use packages::Calculator qw(addition);
print addition(19, 23);
#to run the script
#perl -Iperl_modules/lib/ perl_modules/bin/app.pl