#!/usr/bin/perl -w

#######################################################
# lect09_01.pl
#
# first cgi-bin script --- returns contents of an
#    HTML file
#
# by Sharon Tuttle 
#
# last modified: 10-19-04
#######################################################

open HTML_INPUT, "< lect09_01_html_contents"
   or die "Cannot open lect09_01_html: $!";

# will this post the current contents of this file?

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

while (<HTML_INPUT>)
{
    $next_line = $_;

    print $next_line;
} 

close HTML_INPUT;

# end of lect09_01.pl