#!/usr/bin/perl
use strict;
use warnings;

use IO::Socket qw(:DEFAULT :crlf);

my $host = "192.168.1.1";
my $port = "2050";

my $socket = IO::Socket::INET->new("$host:$port") || die
"Konnte Socket Objekt nicht erzeugen: $!";

while(<$socket>) {
print $socket "hallo" . CRLF;
my $eins = <$socket>;
my $zwei = <$socket>;
print "$eins\n$zwei\n";
}

$socket->close || warn "Fehler beim schließen des Sockets: $@";