my $h = new HTTP::Headers Content_Type => 'text/html', Location => 'http://foo.com'; print $h->as_string,"\n\n";