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);