#!/usr/bin/perl -w

use strict;
use IO::Socket;

my $server = IO::Socket::INET->new
(
    PeerAddr  => '127.0.0.1',
    PeerPort  => 2000,
    Proto     => 'tcp'
)   || die "Can't connect to the Server: $!";

print "Connected to the Server.\n";

print $server "Welcome on the Client!\n";
print "Connect from " . $server->peerhost . "\n";
while (<$server>)
{
    print $_;
    print $server "Die Eingabe war: " . $_ . "\n";
}
close $server;