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

##</code><code>##

!rekcaH~lreP~rehtonA~tsuJ