Select Code to Download

#### Method: header
# Return a Content-Type: style header
...

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

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

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

use CGI qw( -unique_headers );