##
use XML::TreeBuilder;
my $file = $ARGV[0];
my $tree = XML::TreeBuilder->new();
$tree->parse_file($file);
foreach my $drug ($tree->find_by_tag_name('drug')){
my @targets = $drug->look_down ('_tag', 'targets')->look_down ('_tag',
+ 'target')->attr_get_i('partner');
foreach my $id (@targets){print "\t$id";}
my @actions = $drug->look_down ('_tag', 'targets')->look_down ('_tag',
+ 'known-action')->as_text;
foreach my $act (@actions){print "\t$act";}
}