#!/usr/bin/perl -w

open HTML_INPUT, "< class9_02_html_contents"
   or die "Cannot open class9_02_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;