>>461
適当でいいなら。

#!/usr/local/bin/perl

my $dir = './images';

opendir(DIR, $dir);
my @images = grep(/\.jpg/, readdir(DIR));
closedir(DIR);

print "Content-Type: text/html\n\n";

foreach (@images) {
my $path = "$dir/$_";

print "<img src=\"$path\">\n";
}

exit;