Select Code to Download

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

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