Client Server problems met PERL

[TrailBlazer]

Ok ik heb de volgende 2 programma's
de client

code:

#!/opt/UBNperl/bin/perl -w
use IO::Socket;
#define the screen shit
$| = 1;

$pingserver =IO::Socket::INET->new(
                       Proto => 'tcp',
                       PeerAddr=>'127.0.0.1',
                       PeerPort => '7070',
                      )  || die "Can't connect to pingserver\n";
print "Connection open\n";
 
$pingserver->autoflush(1);
print $pingserver "update";
print "update requested\n";
#while (<$pingserver>)
#{
#print;
#}
close $pingserver;
print "Connection down\n";

en de server

code:

#!/opt/UBNperl/bin/perl -w
 my $sock = IO::Socket::INET->new(
                       Proto => 'tcp',
                       LocalPort => '7070',
                       Listen => 1,
                       Reuse => 1,
                      ) || die "Can't start server\n";
print "Server started\n";
$n=0;
for(;;)
{
$client=$sock->accept();
while (<$client>)
{
if ($_=~/update/)
{
print "update request number $n received\n";
print $client "updating";
print "update send\n";
last;
}
}
close $client;
$n++;
}
 
close($sock);
print "Server stopped\n";

Dit werkt wel ik kan alleen info sturen van de client naar de server. Andersom niet. Op het moment dat ik de hekjes voor de while lus van de client weghaal

code:

#while (<$pingserver>)
#{
#print;
#}

werkt het helemaal niet meer ik lijk geen info meer binnen te krijgen op de server. en terug sturen gaat ook niet. Ik heb het idee dat ze op elkaar wachten ofzo

Tja ik vindt het ook gek. Pls help me