my ($width,$height)=unpack "nn", (/\xFF\xC0...(....)/)[0];