$parser->setHandlers(Start => \&start_handler, Char => \&handle_char);

##</code><code>##

sub handle_char {
  my ($expat, $string) = @_;
  ...

}