Hello afoken,

Thank you for your time and effort reading and replying to my query.

Well after a lot of experimentation I have concluded that the problem lies with the directories. I am using Net::SNTP::Client.pm which I have install it locally. I assume since the moment that I install it locally since then any modification I am applying on the module is ignored because I can see the installed directory Net-SNTP-Client.

So I assume that I first need to uninstall the module and then find a way to experiment with the module before installing it.

I have tried almost 100 different combinations with the use lib '/home/username/ModuleFolder/'; but I keep getting the same error:

Can't locate Net/SNTP/Client.pm in @INC (you may need to install the N
+et::SNTP::Client module) (@INC contains: /home/tinyos/Desktop/Test /h
+ome/tinyos/Desktop/Test/ /etc/perl /usr/local/lib/perl/5.18.2 /usr/lo
+cal/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 .) at client.pl lin
+e 8.
BEGIN failed--compilation aborted at client.pl line 8.
[download]

I have unistalled my module since I think this is the root of all problems before I move to the next step I need to find a way to make it work.

Sample of Module Net::SNTP::Client.pm:

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

package Net::SNTP::Client;

use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

$VERSION     = 1.00;
@ISA         = qw(Exporter);
@EXPORT      = ();
@EXPORT_OK   = qw(func1 func2);
%EXPORT_TAGS = ( DEFAULT => [qw(&func1)],
                 Both    => [qw(&func1 &func2)] );

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

1;
[download]

Sample of code for script client.pl:

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

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

use lib '/home/username/Desktop/Test';
use Net::SNTP::Client qw(func1);
print func1(@list),"\n";
[download]