Select Code to Download

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

     use Data::Dumper;
     print \@files;

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

...
 my ($x, $y) = imgsize($_);
 print "$_:  x=$x, y=$y<BR>\n";
}