Select Code to Download

    my $text = $mech->content;

...
    while (my $tag = $tp->get_tag('img')) {
        print "Found image: ", $tag->[1]{src}, "\n";
    }

for ($mech->images) {
  print "Found image: ", $_->url_abs, "\n"
}