...the response...
<!--
my comments...

followed by two offending lines.
-->
Date: Tue, 09 Jul 2002 13:17:37 GMT
Server: libwww-perl-daemon/1.21

##</code><code>##

#(from HTTP::Daemon line 563)

sub send_basic_header
{
    my $self = shift;
    return if $self->antique_client;
    $self->send_status_line(@_);
#taken out    print $self "Date: ", time2str(time), $CRLF;
    my $product = $self->daemon->product_tokens;
#taken out    print $self "Server: $product$CRLF" if $product;
}


##</code><code>##

$c->send_response(
    "Content-type: image/svg+xml\r\n\r\n".
    $svg->xmlify());