#!/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";