use Data::Dumper;
my $tree = $parser->parse($data);
print Dumper $tree;