This is the code I use

perl -e 'use Data::Dumper; use Image::Info qw(image_info);my$a=image_i
+nfo(shift); print Dumper($a);' dmc_0325.jpg | less
[download]

T I M T O W T D I