This Reads And Prints A File

This is the first line of the datafile. This is the second line of the datafile. This is the third line of the datafile. This is the last line of the datafile. ##

##



#!/usr/bin/perl

print "Content-type: text/html\n\n";


&print_return_page_top;


if (open (FILENAME, "data.txt"))
	{
	$line = ;
	while ($line ne "")
		{
		print "$line
";
		$line = ;
		}
	}
else {
        print "Booger
";
}

&print_return_page_bottom;


##################################
sub print_return_page_top
{
print <

This Reads And Prints A File


Hello,

RETURN_PAGE_TOP
}
###################################


##################################
sub print_return_page_bottom
{
print <

RETURN_PAGE_BOTTOM
}
###################################