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