Select Code to Download

<Catalog>
<Category>
...
</Site>
</Category>
<Catalog>

$parser = XML::Parser->new(Handlers => {Start => \&start,
                                        Char  => \&char,
...
}

# if I want to process now the @cb then no data are inside.