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;


##</code><code>##

use strict;
use warnings;
my @list = qw (2 2);
use Module qw(:DEFAULT);
print addition(@list),"\n";