package MYCALC; use Exporter; our @EXPORT = (); our @ISA = qw(Exporter); our @EXPORT_OK = qw(addition multi); our %EXPORT_TAGS = (DEFAULT => [qw(&addition)],Both => [qw(&addition & +multi)]); sub addition { return $_[0] + $_[1]; } sub multi { return $_[0] * $_[1]; } 1; Program: use strict; use warnings; my @list = qw (2 2); use Module qw(:DEFAULT); print addition(@list),"\n"; Above coding is my module MYCALC and the program which using this module, I have not exported any function using @EXPORT, but I have used the DEFAULT in %EXPORT_TAGS with the function addition, when I call this function from the main it says the error as,

0 Answers  

---

There are some duplicate entries in an array and you want to remove them. How would you do that?

0 Answers  

---

Assuming both a local($var) and a my($var) exist, what's the difference between ${var} and ${"var"}?

0 Answers  

---

What are the functions that can be performed using cgi program?

0 Answers  

---

How do you set environment variables in perl?

0 Answers  

---

---

Explain which feature of PERL provides code reusability?

0 Answers  

---

You want to download the contents of a url with perl. How would you do that?

0 Answers  

---

What are perl array functions?

0 Answers  

---

Explain socket programming in perl?

0 Answers  

---

Why to use perl?

0 Answers  

---

How to count no of occurrence of a unique patterns in perl?

4 Answers   Ness Technologies,

---

How do I replace every character in a file with a comma?

0 Answers  

---