Select Code to Download

use HTTP::Request;

BEGIN {
    use HTTP::Request;
    $HTTP::Headers::TRANSLATE_UNDERSCORE = 0;
}

#!/usr/bin/env perl -l

...
my $header = $r->header('__X_Y__', 1);

dd $r;

bless({
  _content => "",
...
  _method  => undef,
  _uri     => undef,
}, "HTTP::Request")

bless({
  _content => "",
...
  _method  => undef,
  _uri     => undef,
}, "HTTP::Request")

...
# The $TRANSLATE_UNDERSCORE variable controls whether '_' can be used
...
...
$field =~ tr/_/-/ if $TRANSLATE_UNDERSCORE;
...