#!/usr/local/bin/perl -w print "Content-type:text/html\n\n"; open(INF, "lab45.dat"); $title = ; print ""; print $title; print "\n"; print "

"; print $title; print "

"; $line = ; while ($line ne "eoo\n") { print $line; if (!($line = )) { $line = "eoo\n";} } close(INF); print "

"; print "";