use CGI qw(:all);
print header;
$webpage1 = param("first");
print "
Web Pages for local data.
";
$filepath = "C:/inetpub/wwwroot/fil.txt";
$newtext = "$webpage1\n";
open (FILE, ">>$filepath") || "Did not write:$!\n";
print FILE $newtext;
close (FILE);
print "Data submitted.
$newtext
";
print "";