Update:

#!/usr/bin/perl 
use strict;
use warnings;
use WWW::Mechanize;
use Data::Dumper;

my $url = q{http://perlmonks.org/};
my $m = WWW::Mechanize->new();
$m->get($url);
print Dumper $_ for @{ $m->images };