$title

package Pos::Webtop::Web::ChaffeeLook; use HTML::Entities (); sub printHtmlHeader { my ($title) = @{{@_}}{qw/title/}; $title = "Sign On" unless defined $title; $title = HTML::Entities::encode($title); print "Content-type: text/html\n\n"; print " $title "; } sub printBodyHeader { print "

$\"Positive$

$\"Webtop\"$

$\"Getting$

$\"spacer\"$

$\"topnav\"$

$\"spacer\"$

$\"Service$

"; } sub printBodyFooter { print "
$\"spacer\"$

"; } sub printHtmlFooter { print " "; } 1;