#!/usr/bin/perl package Calc; use strict; use warnings; sub add{ ($a, $b) = @_; print $a+$b; } package MathPackage; Calc::add(1, 2);#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