in reply to JPEG EXIF headers and Perl
This is the code I use
T I M T O W T D I
perl -e 'use Data::Dumper; use Image::Info qw(image_info);my$a=image_i +nfo(shift); print Dumper($a);' dmc_0325.jpg | less
T I M T O W T D I
In Section
Seekers of Perl Wisdom