my $x = new XML::LibXML();
my $data = $x->parse_string($xml);
my $recordData = $data->findnodes('/records/record/recordData/');
foreach my $rec(@$recordData){
       	print STDERR "helloooooooooooooooooooooooooooooooo";
       my $title = $rec->findnodes('title')->string_value();
              print STDERR $title . "\n";
        }