#!/tools/cs/perl5/bin/perl -w
BEGIN {$ENV{PATH} = '/bin:/usr/bin:/usr/ucb'};
use CGI qw/:standard/;
#use strict;
#Create the page
print "Content-type: text/html", "\n\n";
print "", "\n\n";
print "", "\n";
#Don't let the server cache this page
#print "", "\n";
#print "", "\n";
#Give the title
print "Test Page", "\n";
print "", "\n\n";
#Start the body section
print "", "\n";
print "", "\n";
my $filename = "test.txt";
open (FILE, $filename) || print "
Couldn't open file
";
while () {
$myline = $_;
chop($myline);
print $myline, "
", "\n";
}
#$TestString = "pwd";
#open (TESTIT, "$TestString|") || print "Could not open pwd
";
#
#while () {
# $Test = $_;
# chop($Test);
# print "", $Test, "
";
#}
#Close everything
print "", "\n";
print "", "\n";