#!/Perl/bin/perl

require "CGI.pm";
require "common.pl";

$query = new CGI;

print $query->header();

$file = $query->param('file');


if (! (-e $file) ) {
 print "File $file does not exist <br>$!";
 exit;
}

print "
<form>
<center>
<table width=100%>
<tr><td>$file</td></tr>
<tr><td>
<textarea name=in cols=100 rows=50>";

&Get_text($file);

print "</textarea></td></tr></table></center></form>";