CPAN で配布されている Image::Size モジュールを使用すると、簡単に画像ファイルの幅や高さを取得できます。
Image::Size
use Image::Size; my ($height, $width) = imgsize('sample.png'); die 'Cannot get the size of the image.' unless defined $height;
