Select Code to Download

use Image::Size;
# get the image size, and print it out
my( $width, $height ) = imgsize( $imagefile_pathname );

# (assume identify is in the path)
chomp( my $ident = `identify -format "%w %h" "$imagefile_pathname"` );
my( $width, $height ) = split ' ', $ident;