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