Select Code to Download

$parser->setHandlers(Char => sub {
                my $expat = shift;
                $ocontent = $ocontent . shift;
        }...

Char => sub {
                my $expat = shift;
...
                $cbuffer = $cbuffer . $chars;
                undef $chars;
        }