opendir(DIR,"../images/dir/name");
      @files = readdir(DIR);
     close(DIR);

     use Data::Dumper;
     print \@files;

##</code><code>##

@files = glob '../images/dir/name/*.{jpg,JPG}';

use Image::Size;
for(@files) {
 my ($x, $y) = imgsize($_);
 print "$_:  x=$x, y=$y<BR>\n";
}