#!/usr/bin/perl
use strict;
use warnings;
use Exporter qw(import);

package Net::SNTP::Client;

our $VERSION = v5.18.2;           # Or higher...
our @ISA = qw(Exporter);

our @EXPORT      = ();
our @EXPORT_OK   = qw(func1 func2);
our %EXPORT_TAGS = (           # Mappings for :shortcuts.
			   DEFAULT => [ qw(&func1) ],
			   BOTH => [ qw(&func1 &func2) ]
    );

sub func1  { return reverse @_  }
sub func2  { return map{ uc }@_ }

1;

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;

BEGIN { push @INC, '/home/username/Desktop/' }

use Net::SNTP::Client;

my @list = qw (J u s t ~ A n o t h e r ~ P e r l ~ H a c k e r !);

# case 1
# use Net::SNTP::Client;
# print func1(@list),"\n";
# print func2(@list),"\n";

# case 2
# use Net::SNTP::Client qw(&func1);
# print func1(@list),"\n";
# print MyModule::func2(@list),"\n";

# case 3
# use Net::SNTP::Client qw(:DEFAULT);
# print func1(@list),"\n";
# print func2(@list),"\n";

# case 4
# use Net::SNTP::Client qw(:Both);
# print func1(@list),"\n";
# print func2(@list),"\n";

##</code><code>##

an't locate Net/SNTP/Client.pm in @INC (you may need to install the Net::SNTP::Client module) (@INC contains: /etc/perl /usr/local/lib/perl/5.18.2 /usr/local/share/perl/5.18.2 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.18 /usr/share/perl/5.18 /usr/local/lib/site_perl . /home/username/Desktop/) at client.pl line 8.
BEGIN failed--compilation aborted at client.pl line 8.