# Assign path to $somedir
	opendir DH, $somedir or die "Cannot open $somedir: $!";
	my @photos = grep { /\.jpg$/i } readdir DH;
	closedir DH;