#!/usr/bin/perl
use strict;
use warnings;
use XML::Parser;
use Data::Dumper;
my $p = XML::Parser->new();
print Dumper($p);
$p->{"\0_pong"} = "ping";
die Dumper($p);
__END__