Select Code to Download

my $foo = Obj->new;
for (qw( create init add )) {
  $foo->$_();  # note -- $foo->$_ will not work, ()'s needed
}

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');