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