Select Code to Download

my $parser = XML::Parser->new(
    Handlers => {
        Start => \&s_start,
...
);

my %device_info = $parser->parse($fh);