#!/bin/perl -w
use strict;
use XML::Twig;

my $leader_name;
my $leader_score=0;

#my $field0= 'PC-Compound';
my $field1= 'PC-CompoundType_id_cid';
my $field2= 'PC-InfoData_value_binary';

my $twig= new XML::Twig( twig_roots    => {$field1 => 1, $field2 => 1 } );
$twig->parsefile( "D:/NCI-Open/vice shlavickou.xml");
my $root= $twig->root;
my @cpds= $root->children_text($field1);
my @bins= $root->children_text($field2);
print "@cpds\n";
print "@bins\n";
#$twig->print;