b0VIM 4.6<jN7²—jjgato.di.uminho.pt/mnt/usr6/jj/public_html/perl/XML/examples/ex10.1.pl3210#"! Utpÿ$adì$ðïâÐÏ­‚R!ñÔ¶™z*	îíÜÍ°’uVJ#ûÕÈ¬«Žpprint Dumper($a);           </vendorinfo>",%handler);    </paks>        <item> navigator-4.07 </item>        <item> communicator-4.5, </item>       <item>communicator-4.07 </item>    <paks>     <status> active </status>     <name> Netscape </name>     <id> netscape.commmm</id>    <id> netscape.com </id>   <vendorinfo>$a = dtstring ("print Dumper($a);               </vendorinfo>",%handler);    <packages> communicator-4.07, communicator-4.5, navigator-4.07 </packages>     <status> active </status>     <name> Netscape </name>     <id> netscape.commmm</id>    <id> netscape.com </id>   <vendorinfo>$a = dtstring ("           );                            paks       => 'SEQ' }             -type    => { vendorinfo => 'MAP',	     packages => sub{ [ split(",",$c)] },%handler = ( -default => sub{$c},use Data::Dumper;use XML::DT;#!/usr/bin/perl