$img = Image::Magick->new; $img->Read('../images/logo.gif'); my $nu = $img->Get('colors'); $img->Set(colors=>256); $img->Quantize(); my $nu1 = $img->Get('colors');