foreach my $tag ($doc->findnodes(('//sessions/session[@id="0"]/sessionname/text()'))){
   print $tag->value();
}