use strict;
use warnings;
use Net::Time qw(inet_time);

my $time = inet_time('ntp2.fau.de');
print "Content-type: text/html\n\n";
print($time*1000);
exit;
_ _ END _ _
Content-type: text/html

0