前から気になってたんだけど、perlでは複数のポートを同時に(非同期に)チェックすることは出来ないですか？
確かに途中経過が出るから人にやさしくはなってるけど。