sub send_status_line
{
    my($self, $status, $message, $proto) = @_;
    return if $self->antique_client;
    $status  ||= RC_OK;
    $message ||= status_message($status) || "";
    $proto   ||= $HTTP::Daemon::PROTO || "HTTP/1.1";
    print STDOUT "$$ ",__PACKAGE__,"::send_status_line before print\n";
    eval {
       print $self "$proto $status $message$CRLF";
    };
    if ($@) {
       print STDOUT "$$ ",__PACKAGE__,"::send_status_line caught exception $@\n";
    }
    print STDOUT "$$ ",__PACKAGE__,"::send_status_line after print\n";
}