imgdump

   1 #!/usr/bin/perl -w
   2
   3 use lib "./lib";
   4
   5 use strict;
   6 use Image::Info qw(image_info);
   7 use Data::Dump;
   8
   9 while (@ARGV) {
  10     print Data::Dump::dump(image_info(shift)), "\n";
  11 }
  12
  13