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