Select Code to Download

use warnings;
use strict;
...

foreach my $tag ($root->findnodes( '//a[./img]'))
  { print "link: ", $tag->as_HTML; }

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