opendir(IMD, $directoryOfImages) or die "cannot open $directoryOfImages: $!";
@allPictures=<IMD>;
@allPictures= grep { $_ ne '.' and $_ ne '..' } readdir IMD;
{
@allPictures = sort(@allPictures);
}
closedir IMD;