The hard work has already been done for you here, check out the Image::Size module on CPAN.

use Image::Size;
($x, $y) = imgsize("mypic.gif");
[download]

Will give you the x and y dimensions of your picture. It works with a wide range of different image formats and sources. It's a very handy module indeed.

Ugly