Select Code to Download

$  file sample.jpg
sample.jpg: JPEG image data, JFIF standard 1.01, resolution (DPI), den
+sity 123x123, segment length 16, progressive, precision 8, 1024x1448,
+ frames 3
...
000000a0  00 11 08 >>> 05 a8 04 00 <<<< 03  01 22 00 02 11 01 03 11  |
+........."......|
000000b0  01 ff c4 00 1e 00 01 00  01 04 03 01 01 00 00 00  |.........
+.......|
000000c0  00 00 00 00 00 00 00 06  05 07 08 09 03 04 0a 02  |.........
+.......|

elsif ( $_[0] =~ m/^^\xFF\xD8.{4}JFIF/s  ) {
   $sig = 'JPEG';        # found JPG signature
...
        print "\nNative $img $res[2] width $res[0] height $res[1]\n";
        ($x, $y) = imgsize($img);
        print "Image::Size ($x, $y)\n"

Native ./sample.jpg JPEG width 1024 height 1448
Image::Size (1024, 1448)

Native ./sampleC.jpg JPEG width 617 height 1220
Image::Size (617, 1220)