{"tags":[{"tag":"textarea","content":"#perl_modules\\lib\\packages\\Calculator.pm\npackage packages::Calculator;\n\nuse strict;\nuse warnings;\nuse Exporter qw(import); \nour @EXPORT_OK = qw(addition subtraction);\n\nsub addition\n{\n\t# Initializing Variables a & b\n\t$a = $_[0];\n\t$b = $_[1];\n\t\n $a = $a + $b;\n\tprint \"\\n***Addition is $a\";\n}\n1;\n\n#perl_modules\\bin\\app.pl\n\nuse File::Basename qw(dirname);\nuse Cwd qw(abs_path);\nuse lib dirname(dirname abs_path $0) . '/lib';\n \nuse packages::Calculator qw(addition);\nprint addition(19, 23);\n\n#to run the script\n#perl -Iperl_modules/lib/ perl_modules/bin/app.pl","code_language":"perl"}]}

{"tags":[{"tag":"textarea","content":"#!\/usr\/bin\/perl\n\n\npackage Calc;\nuse strict;\nuse warnings;\n\nsub add{\n\t($a, $b) = @_;\n\t\n\tprint $a+$b;\n}\n\n\npackage MathPackage;\n\nCalc::add(1, 2);","code_language":"perl"}]}