#!/usr/bin/perl
use strict;
use warnings;
use IO::Socket::INET;

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

my $hello;
$socket->recv($hello, 1024, 0);
print $hello."\n";
close($socket);