#!/usr/bin/perl

use warnings;
use strict;

# Please read: http://www.pool.ntp.org/de/use.html

use Net::NTP;
my %h = get_ntp_response("0.pool.ntp.org");

my @t = localtime($h{"Transmit Timestamp"});

my $hours = sprintf("%02d", $t[2]);
my $minutes = sprintf("%02d", $t[1]);
my $seconds = sprintf("%02d", $t[0]);

print "$hours:$minutes:$seconds\n";