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

##</code><code>##

     use Image::Size;
     for(@files) {
       next unless /.*.*\..*/ && /\.jpg$/i;
       my ($x, $y) = imgsize($_);
       print "$_:  x=$x, y=$y<BR>\n";
     }

##</code><code>##

     use Image::Size;
     for(@files) {
       next unless /.{2,}\.jpg$/;         # could also be just /..\.jpg$/
       my ($x, $y) = imgsize($_);
       print "$_:  x=$x, y=$y<BR>\n";
     }

##</code><code>##

     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";
     }