my $color = sprintf "%02x%02x%02x", $r, $g, $b;