use strict;
use IO::Socket;


my $socket = new IO::Socket::INET (
	PeerAddr => 'ptbtime1.ptb.de',
	PeerPort => 37,
	Proto    => 'tcp'
) or die "Kein Socket bekommen!";

my @stat = stat($socket);
print join "\n", @stat;

read ($socket, my $buffer, 4);
print unpack "N", $buffer; # seconds since 1.1.1900