Select Code to Download

use warnings;
use strict;
...
                                                                      
+          
{

# REIMPLEMENTING THE WHEEL STARTS HERE

...
        $handler{"Char"} = sub { $string .= $_[1]; };
                                                                      
+          
# REIMPLEMENTING THE WHEEL ENDS HERE (more or less)

        my($child, $member, $goodness, $id);
        $starthandler{"cluster"} = sub {
...
                sub { push @$member, $string; };
        };

        XML::Parser->new("Handlers", \%handler)->parsefile($ARGV[0]);

        warn "done parsing xml";
                                                                      
+          
...
                                                                      
+          
# ... and here we actually do something with what we'we read, but I wo
+n't show that ...

use warnings;
use strict;
...
                                                                      
+          
# ... and I omit the rest of the code again ...