$image->Resize (width => $w*$opts{reproFactor}, height => $h*$opts{reproFactor});
my ($h, $w) = $image->Get (qw/height width/);