#!/usr/bin/perl
print "Content-type: text/html\n\n";
&print_return_page_top;
if (open (FILENAME, "..//..//test//index.html"))
{
$line = ;
while ($line ne "")
{
print "$line";
$line = ;
}
}
else {
print "Booger
";
}
&print_return_page_bottom;
##################################
sub print_return_page_top
{
print <
Update Index
Type your changes in the box below and then press Submit: