list-images.pl

use autodie;
use feature "say";
use Cwd 'abs_path';
use File::Find;

sub noExt
{
	shift =~ /([^\/]+)\.[^.]+$/;
	return $1;
}

sub findByDir
{
	my $path = shift;
	my %dirs;
	find(sub{
		my $name = $File::Find::name;
		my $dir = $File::Find::dir;
		$dirs{$name} = [] if -d;
		push(@{$dirs{$dir}}, $name) if -f;
	}, $path);
	return %dirs;
}

my %filesByDir = findByDir(".");
for my $dir (sort keys %filesByDir)
{
	my @files = sort {(lc noExt $a) cmp (lc noExt $b)} @{$filesByDir{$dir}};
	my @images = grep {/\.(jpg|png)$/} @files;
	say '<h1>'.($dir =~ s%^\./?%%r).'</h1>' if $#images >= 0;
	say '<img src="'.$_.'" width="244" height="361">' for @images;
}