#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

#path to the location of the module
use lib '/home/username/Desktop/SNTP_Module/'; # note here
use Net::SNTP::Client;

=netNTP
use Net::NTP;
my %response = get_ntp_response("192.36.144.22:123");

print Dumper \%response;
=cut

my %hashInput = (
    -hostname      => "192.36.144.22",
    -port          => 123,
    -RFC4330       => 1,
    -clearScreen   => 1,
);

my ($error, $hashOutput) = getSNTPTime( %hashInput );

print Dumper $hashOutput;
print "Error: $error\n" if ($error);