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

...

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