...

main::(foo.pl:16): $config = $dumper->xml2pl($xml);
  DB<1> s
XML::Dumper::xml2pl(.../XML/Dumper.pm:114):
114:     my ($obj,$tree) = @_;
  DB<1> n
XML::Dumper::xml2pl(.../XML/Dumper.pm:117):
117:     my $TopItem = $tree->[1];
  DB<1> n
XML::Dumper::xml2pl(.../XML/Dumper.pm:118):
118:     my $ref = &Undump($TopItem);
  DB<1> s
XML::Dumper::Undump(.../XML/Dumper.pm:133):
133:     my ($Tree) = shift;
  DB<1> n
XML::Dumper::Undump(.../XML/Dumper.pm:134):
134:     my $ref = undef;
  DB<1> n
XML::Dumper::Undump(.../XML/Dumper.pm:135):
135:     my $FoundScalar;
  DB<1> n
XML::Dumper::Undump(.../XML/Dumper.pm:136):
136:     my $i;
  DB<1> n
XML::Dumper::Undump(.../XML/Dumper.pm:138):
138:     for ($i = 1; $i < $#$Tree; $i+=2) {  
  DB<1> n
XML::Dumper::Undump(.../XML/Dumper.pm:178):
178:     $ref = $FoundScalar unless defined($ref);
  DB<1> n
XML::Dumper::Undump(/.../XML/Dumper.pm:180):
180:   done:
181:     return ($ref);
  DB<1> n
XML::Dumper::xml2pl(/.../XML/Dumper.pm:120):
120:     return($ref);
  DB<1> n
main::(foo.pl:21): print Dumper $config;