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