my @rgb = $img->rgb( $img->getPixel($x, $y) );

if ( 3 == grep !$_, @rgb ) {
    print "*";
} else {
    print " ";
}