#!/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 } ###################################