接続部分コードをぬきだしたもの。
　　# URL分解
　　$SrcFileName =~ /http:\/\/([^:\/]*)(:([0-9]+))?(\/.*)?/;
　　$host = $1;
　　$port = ($3 ne "") ? $3 : 80;
　　$path = ($4 ne "") ? $4 : "/";

　　# 接続先情報構築
　　$addr = (gethostbyname($host));
　　$name = sockaddr_in($port,inet_aton($host));

　　# 接続
print "0<br>";
　　socket(S, PF_INET, SOCK_STREAM, 0);
print "1<br>";
　　connect(S, $name);
print "2<br>";
　　binmode(S);
print "3<br>";
　　select(S);
print "4<br>";
　　$| = 1;
print "5<br>";
　　select(stdout);
print "6<br>";

実行すると"3"までプリントされる。
サーバのerror.logには
DBD::mysql::st execute failed:
が出てるけど関係ないよなぁ〜？