#!/usr/bin/env perl -l

use strict;
use warnings;

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

use Data::Dump;

my $r = HTTP::Request->new;

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

dd $r;