Anonymous

 use Image::Magick;
 $image = Image::Magick->new;
 $image->Read("./test.jpg");
 my ($height, $width) = $image->Get('height', 'width');
 print "($height, $width)\n";