The Image::Magick way:

use Image::Magick;

my $image = Image::Magick->new();
my $x = $image->ReadImage($filename);
if ($x) { die "Problem reading image file: $x\n"; }
    
my ($height, $width) = $image->Get('height','width');
[download]