sub getcolor {
    return "puke" unless @_ == 3;
    $colornames[$reference_image->colorClosestHWB(@_)]
}