#!/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 '.'; # note here
use Net::SNTP::Server qw(&func1);
print func1(@list),"\n";