I was going to recommend Image::Size as I have used it with great success - but then I saw you wanted to do this without modules. Hmm, should probably go with dws's suggestion.

-- vek --