$color = &RGBDecToHex(0, 102, 153);

sub RGBDecToHex {
  my ($red, $green, $blue) = @_;
  return sprintf("#%02lx%02lx%02lx", $red, $green, $blue);
}