Perlメモ: 画像ファイルの幅、高さを調べる (`Image::Size`)

use Image::Size;

my ($width, $height) = imgsize('sample.png');
die 'Cannot get the size of the image.' unless defined $height;