#!/usr/bin/perl -w

use strict;
use Image::Magick;

my($image);

$image = new Image::Magick;
$image->Read('my_original.bmp');
$image->Quantize(treedepth => 24);
open(IMAGE, ">my_output.bmp");
$image->Write(file=>\*IMAGE, filename=>"my_output.bmp");
close(IMAGE);