opendir D, $imagedir or die "Can't open $imagedir: $!\n";
@files = grep($files, readdir D);
closedir D;
# Rest of your code here