my $text = $mech->content;

    my $tp = HTML::TokeParser->new(\$text);

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

##</code><code>##

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