my $parser = XML::Parser->new(Handlers => { Start => \&handle_start,
                                            Char  => \&handle_char,
                                            End   => \&handle_end
                                          });