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

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

my $hello = <$socket>;
print $hello;

close($socket);