my $method = 'Quantize';
my $parameters = qw (colorspace=>'gray' compression=>'none');
my $image = Image::Magick->new;
$image->Read('/share/colortransition.jpg');
$image->${method}($parameters);
$image->write(filename=>'/share/graytransition.jpg');