img.pl

#!/usr/bin/env perl

use 5.014;

use WWW::Mechanize;

# feed me a url like this!
my $url = "http://eden.komica.org/00/src/";

my $mech = WWW::Mechanize->new();

$mech->get($url);

my $ref = $mech->find_all_links();

for (@$ref) {
    say "<img src=\"". $_->url_abs() . "\"><br/>";
}