#!/usr/bin/perl

use IO::Socket;

my $input = IO::Socket::INET->new (
    PeerAddr => '127.0.0.1',
    Type => SOCK_STREAM,
    PeerPort => 2006,
    Proto=>"tcp"
) or die "kann Server nicht kontaktieren\n";

print $input "Frage an den Server\n";


while(<$input>) {
    print "Antwort vom Server: $_\n";
    print $input "Lesebestätigung senden\n";
}

close($input);