> > おお、さんくヽ(´ー｀)ノ
> > アリーナやニフは直接参照できなくて困るよヽ(´ー｀)ノ
> こんなもん置いて万人からアクセスできるようにしておくと
> 速やかにハクされるからくれぐれも注意なヽ(´ー｀)ノ

> > #! /usr/bin/perl
      > > $file = "log.txt";
      > > foreach (split(/&/, $ENV{'QUERY_STRING'})) {
      > >   ($name, $value) = split(/=/);
      > >   $form{$name} = $value;
      > > }
      > > $file = $form{'file'} if exists $form{'file'};
      > > print "Content-type: text/plain\n\n";
      > > open(F, $file) || print("Cannot open file $file: $!\n"), exit;
      > > print while <F>;

この、fileってところをパスワードっぽくすれば良い。
使うときは、「CGIプログラムのURL?パスワード=ファイル名」で。

参考：2001/06/09(土)03時55分23秒