my $parser = new XML::Parser ( Handlers => {   # Creates our parse
                              Start   => \&hdl_start,
                              End     => \&hdl_end,
                              Char    => \&hdl_char,
                              Default => \&hdl_def,
                            });