Select Code to Download

Select or download this

<?xml version="1.0" encoding="UTF-8"?>  
<dump> 
tMAllxGCUoOtVNrbex5jlgM1e2HoW+VgtBGZaN8cYmi+bMZDOUxQht44sFX+j57S4FvYoy
+2Y16kD              +uPwMpt+FSjfJww4gXKXpGVkMmMA3AFduCM9K8wVPyVy8fI8F
+I+7pIBQt0/Hz5PErMhqJ2ngyt49              +75WQpmP9a1n3wCRE1vBSGAs4jr4
+UcJtkLbZ/07SR3RLDWqByDDjxrsGQYuqxoy4+XrXM01ZTfGp

Select or download this
```
JMCZng==        
====
</dump>
```

Select or download this

#!/usr/bin/perl
use XML::Parser;
...
    ;
$parser->parsefile($file);

Select or download this

$ time ./test.pl test.xml 
35.984u 0.557s 0:41.20 88.6%    10+9137k 0+0io 0pf+0w

Select or download this

$ time ./test.pl test.xml 
0.119u 0.031s 0:00.15 93.3%    10+4276k 0+0io 0pf+0w

Select or download this

perl -V
Summary of my perl5 (revision 5 version 8 subversion 8) configuration:
...
    /usr/local/lib/perl5/site_perl
    /usr/local/lib/perl5/5.8.8/mach
    /usr/local/lib/perl5/5.8.8