my $parser = XML::Parser->new(
    Handlers => {
        Start => \&s_start,
        End   => \&s_end,
        Final => \&s_final,
    }
);

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