use Image::Size;

my ($width, $height) = imgsize("bild.gif");