> テキストファイルを読みこんでそのままテキストで出力する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時43分23秒