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