use XML::Simple; use Devel::Symdump; Devel::Symdump->rnew(); # init CProcess->PrintProcessInfo("perl.exe"); { my $xs = new XML::Simple(); my $root= $xs->XMLin('D:\xTools\test\xmltest.xml'); } CProcess->PrintProcessInfo("perl.exe"); my $dump = Devel::Symdump->rnew(); { my $xs = new XML::Simple(); my $root= $xs->XMLin('D:\xTools\test\xmltest.xml'); } CProcess->PrintProcessInfo("perl.exe"); print "---------\nAdded new to symbol-table:\n"; print $dump->diff(Devel::Symdump->rnew()); print "---------\n";