#### Method: header
# Return a Content-Type: style header
#
####
'header' => <<'END_OF_FUNC',
sub header {
    my($self,@p) = self_or_default(@_);
    my(@header);

    return "" if $self->{'.header_printed'}++ and $HEADERS_ONCE;


##</code><code>##

    # Change this to 1 to suppress redundant HTTP headers
    $HEADERS_ONCE = 0;

##</code><code>##

$HEADERS_ONCE++,         next if /^[:-]unique_headers$/;

##</code><code>##

use CGI qw( -unique_headers );