Select Code to Download

#!/usr/bin/perl
use warnings;
...

my $count = $xc->findvalue('count(//Article//Sect//LI)', $dom);
print "$count list nodes found.\n" if $count;