Select Code to Download

if ($results->isa('XML::XPath::NodeSet')) {
   return wantarray ? $results->get_nodelist : $results;
#  return $results->get_nodelist;
}

#!/usr/bin/perl -l

...
my $iter = foo()->from_start();
print ($iter->value),$iter->next until $iter->at_end;