#!/home/ben/software/install/bin/perl
use warnings;
use strict;
use Convert::Color;
my %rgbs = (
    black => {r => 0, g => 0, b => 0},
    white => {r => 255, g => 255, b => 255},
    chartreuse => {r => 127, g => 255, b => 0},
);
for my $color (sort keys %rgbs) {
    my $r = $rgbs{$color}{r} / 255;
    my $g = $rgbs{$color}{g} / 255;
    my $b = $rgbs{$color}{b} / 255;
    my $rgb = "rgb:$r,$g,$b";
    print "$color $rgb\n";
    my $cc = Convert::Color->new ($rgb);
    my ($hue, $saturation, $lightness) = $cc->as_hsl->hsl ();
    printf "%.3g %.3g %.3g\n", $hue, $saturation, $lightness;
}