my $parser = new XML::Parser(
  Handlers => {
    Start => \&StartTag,
  },
);