CGI作ったよ
誰かどっかに置いてくれ(笑


#!/usr/bin/perl

use CGI;
use IO::Socket;

my $cgi = new CGI;
print $cgi->header(-type=>'text/html; CHARSET=Shift_JIS');
print "<html><head><title>Zigmo Checker</title></head><body><p>\n";

my $host = $cgi->remote_host();
my $port = 6340;

my $socket = IO::Socket::INET->new(PeerAddr => $host, PeerPort => $port, Proto => 'tcp');

if (defined($socket)) {
　print "${host}:${port} は外部からアクセス可能\です。";
} else {
　print "${host}:${port} は外部からアクセス不可能\です。";
　$socket->close();
}

print "</p></body></html>\n";

exit(0);