ポートチェックのスクリプトを書いたのですか上手く動作しません
おかしなところがあったら教えてください
メイン
#!/usr/bin/perl
@port = (80,1080,3128,8000,8080,8888); # チェックするポート番号

PrinthtmlHeader(); #htmlのヘッダーと<BODY>まで出力する関数

foreach(@port){
$result=IsOpenPort($_);
print $result;
}

PrinthtmlFooter(); #ｈｔｍｌフッタ出力

exit;