my ($h, $w) = $image->Get (qw/height width/);