Help for this page

Select Code to Download

Select or download this
perl -MImage::Size -e'print "$_: @{[imgsize($_)]}\n" for @ARGV' *.jpg

Select or download this

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