socket e contatore tempo

[thegiova]

ciao a tutti

ho creato un piccolo client che si connette ad una porta e scarica i dati.

Uno dei controlli che devo implemetare è quello che, se per n secondi non ricevo dati devo inviare un messaggio...

non ho la più pallida idea di come farlo. Mi potete dare una mano?
Vi posto il semplice client.

#!/usr/bin/perl

use IO::Socket;
my $sock = new IO::Socket::INET(
PeerAddr => 'xx.xxx.xx.xxx',
PeerPort => '5003',
Proto => 'tcp',
)
or die "Impossibile creare il socket: $!\n" unless $sock;;

while ( <$sock> ){
$buf = "$_";
print "$buf";
}

print "\nSocket down porta 5003\n";

close($sock);

[thegiova]

up

[thegiova]

secondo voi è possibile fare una cosa del genere?
questa non funziona, ma magari qualcosa di simile....

while ( <$sock> or (&tempo2() >= 10) ){
$buf = "$_";
print "$buf";

}


&tempo2() mi ritorna un valore numerico...

[thegiova]

può essere chiuso