lib/scripts/yxml.pl

 my $parser = new XML::Parser(Handlers =>
   {Start => \&handle_start,
     End => \&handle_end,
     Char => \&handle_char});
 
-$parser->parse(*STDIN);
+$parser->parse(*STDIN) or die $!;