If Perl isn't a strict requirement, jhead may be useful. If Perl is a strict requirement, study and reimplement jhead in a Perl module and submit it as Image::EXIF.

--
[ e d @ h a l l e y . c c ]