Select Code to Download

use strict;
use Data::Dumper;          
...
  print "2", Dumper( $tree->{project}{'PlayGround'} ) ;    # want this
+ all the time.
  print "-" x 79, "\n";
}

E:\bin\XML>xmlqna.pl
data
...
        };
----------------------------------------------------------------------
+---------