use Image::Size;
     for (glob '*.jpg') {
      my ($x, $y) = imgsize($_);
      print "$_: xsize = $x, ysize = $y<BR>\n";
     }

##</code><code>##

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

     use Image::Size;
     for(@files) {
      if ($_ =~ /.*.*\..*/) {
       if ($_ =~ /.jpg/ || $_ =~ /.JPG/) {
        my ($x, $y) = imgsize($_);
        print "$_:  x=$x, y=$y<BR>\n";
       }
      }
     }