foreach my $url ($root->findnodes( '//a/img/@src'))
  { print "link: ", $url->getValue, "\n"; }