＞じゃあ、最初の目標として>>463の
＞
＞＞サーバープログラムは起動時にCGI にアクセスしに行って、サーバー名と自分のIPを送信。
＞＞CGI はサーバー名と IP をファイルに保存。
＞＞クライアントはファイルを見に行って、サーバ一覧を取得、サーバーを選択して接続する。
＞＞サーバーは終了時に、CGI に自分の登録を削除しに行く。
＞
＞を作ったらいいんじゃない？
＞みんな挑戦すれば誰か一人くらいまともなの完成するかも。
＞あせらずじっくりやろうぜ！

というわけでまずは鯖側を作ってみた

#!/usr/local/bin/perl

$query=$ENV{'QUERY_STRING'};

open(OUT, ">> datafile.txt");
print(OUT $query);
close(OUT);

print "Content-type: text/html\n";
print "\n";
print "<html>\n";
print "<head>\n";
print "<title>ServerList</title>\n";
print "</head>\n";
print "<body bgcolor=\"#ffcccc\">\n";
print "$queryをリストに加えました";
print "</body>\n";
print "</html>\n";