use Image::Magick;
my $tmpName = 'd:/proxy/html/images/email.gif';
my $thumb = Image::Magick->new();
$thumb->Read( $tmpName );  
my ( $height, $width ) = $thumb->Get( 'height', 'width' );
print "$tmpName: $height h $width w\n";

__DATA__
d:/proxy/html/images/email.gif: 14 h 14 w