my $maxPacket = 1500;
...
while (1) {
  my @Readable = $SelHandle->can_read(10) or last;   # Timeout 10 Sekunden
  foreach my $socket (@Readable) {
    # spätestens sinnvoll, wenn andere Handles mit select überwacht werden
    if ($socket eq $SocketHandle) {
      $SocketHandle->recv($Status, $maxPacket)
      # nur Länge 0 ist etwas besonderes, alles andere ist uninteressant
      length $Status or print ("EOF erkannt\n"), last;
      print $Status;
    }
  }
}
# wenn Gegenseite kein EOF sendet kommt nach 10 Sekunden der Timeout und Du bist hier.
...