Select Code to Download

my $parser = XML::Parser->new(Handlers => {Start => \&startElement});

    my $parser = XML::Parser->new(
        Handlers => {
            Start => sub {$self->startElement(@_);}
            }
        );

sub startElement {
    my ($self, $parseinst, $element, %attrs ) = @_;

use strict;
use warnings;
...
<root>
    <child Property='Hello World'/>
</root>