$parser = new XML::Parser::Expat;
$parser->setHandlers();
open(FOO, 'info.xml') or die "Couldn't open";
eval { $parser->parse(*FOO) };
  if ($@) {
    print "$_ is bad\n";
  } else {
    print "$_ is good\n";
  }
close(FOO);