my $sock = IO::Socket::INET->new(
				 LocalAddr => '127.0.0.1:6300',
				 LocalPort => 6300,
				 Proto => 'udp',
				);
my $incoming;
while ($sock->recv($incoming, 65536)) {
   my ($magic, $type, $nextLogChar, $logBufferSize, $length, $override, $bootTS, $pad) = unpack "llllllQQ" , $incoming;