use IO::Socket;

my $server = IO::Socket::INET->new(
    LocalPort => 2005,
    type => SOCK_STREAM,
    Reuse => 1,
    Listen => 10
)
    or die "Server läuft nicht: $@\n";

my ($data_read, $flags);

$server->recv($data_read, $flags)
    or die "Kann nicht empfangen: $!";