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


##</code><code>##

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