use strict;
use warnings;
use IO::Socket::INET;

my $socket = IO::Socket::INET -> new( LocalPort => 514,
                                      Proto => 'udp',
                                      Type => SOCK_DGRAM)
or die "Keine Verbindung: $!\n";

my $hello;

$socket->recv($hello, 1024, 0);

print $hello."\n";

close($socket);