> > テキストファイルを読みこんでそのままテキストで出力するCGIください
> #! /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>;
> 危険だけどなヽ(´ー｀)ノ

どのファイルでも読めてしまうからか。
自分だけで使うには自由にした方が便利だよね。

参考：2001/06/09(土)03時51分34秒