my ($format, $width, $height) = $img->Get(qw/format width height/);