print $r->{cgi}->header(
-type => $r->{content_type},
-charset => $r->{document_encoding},
-content_length => do { use bytes; length $r->{output} },
print $r->{cgi}->header(
-type => $r->{content_type},
-charset => $r->{document_encoding},
-content_length => do { use bytes; length $r->{output} },