#!/usr/bin/perl
# Author: Peter R. Wood, http://prwdot.org/

use Image::Info;
use Data::Dumper;

my $info = Image::Info::image_info( $ARGV[0] );
print Dumper $info;