Ich denke mal, Dein Problem ist, daß Du nichts vom Server empfängst. Ob da überhaupt etwas anliegt, kannst Du sehr gut testen, wenn Du mit IO::Select arbeitest, bevor Du in die while-Schleife eintauchst. Denn es könnte ja auch ein Problem beim Server vorliegen, mit dem Du verbunden bist. Wenn Du vom Server getrennt wirst, müßtest Du automatisch aus Deiner while-Schleife austreten.