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

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

my $hello;
until (defined $hello) {
  $hello = <$socket>
}

print $hello;

close($socket);