my $black = $im->colorClosest(0,0,0);

##</code><code>##

use GD;
GD::Image->trueColor(1);

...

my $black = $im->colorResolve(0,0,0);