sub header { print "Content-type: text/html\n\n";   print "\n\n$titel\n\n"; print "\n"; print <<"EOT";

$title

EOT print "
\n\n
\n"; } sub footer { print "

\n"; print "

\n"; print "\n\n"; }