Help for this page

Select Code to Download

Select or download this

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