$image->Set(units => 'PixelsPerInch');
$image->Set(depth=>8);
$image->Set(density => '300x300');
$image->Set(quality =>'20');
##</code><code>##

$image->Resize( geometry => '400x400' );
$image->Extent( geometry => '400x400' );