"; print "<center><b>"; print $title; print "</b></center>"; print "

#!/usr/local/bin/perl -w print "Content-type:text/html\n\n"; @values = split(/_/,$ENV{'QUERY_STRING'}); $filename = $values[0] . "." . $values[1]; open(INF, "lab46.dat"); $title = ; print ""; print "<center><b>"; print $title; print "</b></center>"; print "\n"; print "

"; print $title; print "
"; while ($line = ) { if ($line ne "eoo\n") { print $line; } if ($line eq "eoo\n") { print "

"; print "

"; } } close(INF); print "

"; print "";