> > #! /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時52分45秒