> > #! /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>;
> > 危険だけどなヽ(´ー｀)ノ
> どのファイルでも読めてしまうからか。
> 自分だけで使うには自由にした方が便利だよね。

更にperlのopenの仕様上コマンド実行し放題

参考：2001/06/09(土)04時23分21秒