Select Code to Download

#!/usr/bin/perl ---

...
print $h->as_string;
__END__
SM-USER: waldo

# Check with FALSE $HTML::Headers::TRANSLATE_UNDERSCORE
{
    local($HTTP::Headers::TRANSLATE_UNDERSCORE);
...
    ok(!defined($h->header("abc_abc")));
    ok($h->header("ABC-ABC"), "bar");
}