IO::Socket::INET

[elrond]

Hi,

ich bin dabei einen Client zu einem tcp-Server zu schreiben. Unter PHP ist das keine Nummer gewesen...

In Perl stehe ich dabei allerdings etwas auf dem Schlauch. Bisher habe ich folgendes:
**********************************
#!/usr/bin/perl -w
use IO::Socket;
use constant TIMEOUT=> 5;
use constant MYPORT => 7123;

$sock=new IO::Socket::INET( PeerAddr => "nt_hp.lbl.de",
PeerPort => MYPORT,
Proto => 'tcp',
Timeout => TIMEOUT
)

or die "kann Socket-Server nicht conecten: $@\n";

print $sock "#SSTART#";

#********funxt bis dahin ganz klasse***********
wenn ich jetzt aber vom Socket lesen will, bleibt das Script einfach stehen, weil es wahrscheinlich auf mehr Daten vom Server wartet, als gesendet werden.
Ich weiß, dass genau 4 bypes vom Server kommen.

Frage: Wie kann ich von $socket genau 4 bytes lesen und dann einfach mit dem script weitermachen ?

el

ps: ich habe bisher so versucht zu lesen:
$data=<$socket>;

[elrond]

hat sich erledigt, danke!