Mich wundert daran etwas, dass Deine print Zeilen 19 und 22 nicht ausgeführt werden, die sind ohne Bedingung, müssten also kommen.
Das heißt, das Script bricht in 18 ab. Wenn es das aber wiederum kontrolliert täte, müsste doch das die() mit $! wenigstens geprintet werden. Warum tut es das nicht?
Ich glaube, an der Stelle channel() ist etwas faul.
Gibt es sonstige Logfiles vom lokalen Rechner/Server was auch immer?

Edit: Darf perl auf dem verwendeten System die benötigten Ports benutzen (Firewall/Virenscanner)?
Last edited: 2009-12-15 10:45:28 +0100 (CET)