use XML::LibXML;

  my $parser = XML::LibXML->new();
  my $doc    = $parser->parse_file('hello.xml');

  foreach my $book ($doc->findnodes('/result/suites/suite/cases/case')) {
    my($title) = $book->findnodes('./className');
    print $title->to_literal, "\n" 
  }