Select Code to Download

Update:

#!/usr/bin/perl 
...
my $m = WWW::Mechanize->new();
$m->get($url);
print Dumper $_ for @{ $m->images };

Output:

$VAR1 = bless( {
...
                 'tag' => 'img',
                 'height' => '91'
               }, 'WWW::Mechanize::Image' );