#!/usr/bin/perl

$hostname = 'ntps1-1.cs.tu-berlin.de'; #NTP-Server

use IO::Socket;
$socke = new IO::Socket::INET (
  PeerAddr => $hostname,
  PeerPort => 13,
  Proto => 'tcp')|| die "Kein Socket... $!\n";

$zeit = <$client_sock>;
$socke->close();

print "Genaue Uhrzeit: $zeit\n";

`date -s   $zeit`;