#!/usr/bin/perl
$|=1;
print "Content-Type: text/html\r\n\r\n";
use strict;use IO::Socket;my $Server = new IO::Socket::INET (
PeerAddr => '192.168.88.100',    
PeerPort => 2004, 
Proto => 'tcp') 
|| die "kann nicht zum Server verbinden!";
print "bin verbunden <br>";
while(<$Server>) {        
print $_;        
print "in schleife ich drinne sein";
}print "bin getrennt";
$Server->close();