opendir(DIR,"../images/dir/name");
     @files = grep -f && /\.jpe?g$/i, readdir(DIR);
     close(DIR);
     for(@files) {
       my ($x, $y) = imgsize($_);
       print "$_:  x=$x, y=$y<BR>\n";
     }