#!/usr/local/bin/perl -w
# tcp-selectclient.pl -- Ein single-threaded interaktiver TCP-Client.
#                  Benutzt nur einen Prozess, aber IO::Select.
#                  Verwendung: $0 remote_host remote_port

# ACHTUNG: IO::Select scheint nicht unter Win95 u.aeh. zu laufen!

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

use constant TIMEOUT => 5;
$sock = new IO::Socket::INET(PeerAddr => $ARGV[0],
                 PeerPort => $ARGV[1],
                 Proto    => 'tcp', Timeout => TIMEOUT)
    or die "can't connect to $ARGV[0]:$ARGV[1]: $@\n";

$select = IO::Select->new();
$select->add($sock);
$select->add(\*STDIN);

while (@ready = $select->can_read()) {
    foreach my $fh (@ready) {
    last unless defined($reply = <$fh>);
    if ($fh == $sock) { print $reply; } else { print $sock $reply; }
    }
}