opendir THIS, "." or die "Error: $!";
my @allimages = grep /\.jpg$/i , readdir THIS;