#!/usr/bin/perl

require "cgi-lib.pl";

&ReadParse(*in);
$name = "$in{'name'}";
$check = "$in{'check'}";

print "Content-type: text/html\n\n";
print "<html>\n";
print "<head>\n<title>文法チェッカー</title>\n</head>\n";
print "<body>\n";
print "<form method=post action=checker.cgi>
print "<input type=name name=>ファイル名<br>
print "<input type=submit name=submit value=チェック>
print "<input type=hidden name=check value=check>\n";
print "</body>\n</html>\n";

if($check eq "check"){
open(FILE ,"$name");
@data = <FILE>;

eval{
foreach(@data){print;}　　///←ここは作成途中なのであしからず
};