#!/usr/bin/perl -l

use warnings;
use strict;
#use diagnostics;

use IO::Socket;
use IO::Select;
use IO::Handle;

my $stdin = IO::Handle->new();
$stdin->fdopen(fileno(STDIN),"r");

my $remote_host = "192.168.2.2";
my $remote_port = 5000;
my $clientsock = IO::Socket::INET->new(PeerAddr => $remote_host,
                PeerPort => $remote_port,
                Proto => "tcp",
                Type => SOCK_STREAM)
                or die "Konnte kein Kontakt zu $remote_host:$remote_port herstellen : $@\n";

my $sel = IO::Select->new();
$sel->add($stdin);
$sel->add($clientsock);

my $socket;
while (1) {
        my @readyhandles = $sel->can_read();
        foreach $socket (@readyhandles) {
                if ($socket == $stdin) {
                        print $clientsock <$socket>;
                } else {
                        print <$socket>;
                }
        }
}