Use Image::Info to get the EXIF data, it is pretty simple to use and you don't need to read the standards.

use Image::Info qw(image_info);

my $width = image_info($_)->{width};
my $height = image_info($_)->{height};
print "$_\twidth = $width\theight = $height\n";
[download]