opendir DIR, $dir;
while ($file = readdir DIR) {
	if ($file =~ /\.jpg$/) {
		push @images, { 'image' => $file };
	}
}
closedir DIR;