my $entry = CGI->new();    

$entry->p($font_o,'---[',
        b('Handle: '),$gbdata->{'handle'},br(),'----[',
        b('Email: '),$gbdata->{'email'},br(),'-----[',
        b('Website: '),$gbdata->{'url'},br(),'------[',
        b('IP: '),remote_host(),':',server_port(),
        br(),'-------[',
        b('Browser: '),user_agent(),br(),'--------[',
        b('Date & Time: '),$time,
        br(),br(),'[',
        b('Message'),']',br(),
        hr(),$gbdata->{'comments'},br(),hr(),'</font>',),
        end_html();

##</code><code>##

unshift (@contents, $header, $entry);

##</code><code>##

$entry = "

<P>\n

<FONT FACE=\"Verdana\" SIZE=\"1\">
---[<B>Handle:</B> $GBINFO{'handle'}<BR>
----[<B>Email:</B> $GBINFO{'email'}<BR>
-----[<B>Website:</B> $GBINFO{'url'}<BR>
------[<B>IP:</B> $ENV{'REMOTE_ADDR'}:$ENV{'REMOTE_PORT'}<BR>
-------[<B>Browser:</B> $ENV{'HTTP_USER_AGENT'}<BR>
--------[<B>Date&Time:</B> $hour:$min:$sec $end $days[$day2] $months[$month] $day\, $year<BR>
<B>[Message]</B><BR>
<HR>
$GBINFO{'comments'}<BR>            
<HR>\n
</P>\n
</FONT>\n
";