Sup!
while (<$data>) { print $_."\n"; }
Warum soll denn while (<$data>) {print $_."\n"; sleep 60;} nicht gehen?
Koennte hoechstens Probleme geben mit dem Timeout, nicht jeder Socket bleibt einfach unbegrenzt lange offen, wenn man nichts raus liest.
CK wuerde sicher vorschlagen, IO::Socket und IO::Select zu benutzen.
Gruesse,
Bio