package MyColor
@ISA = qw()

sub GetColor
my ($color) = @_;
return $color if($color =~ /^#/);
return $c;

sub ColorToRGB
my ($color) = @_;
return (hex($r), hex($g), hex($b));

sub ScaleColor
my ($color, $scale, $ReturnRGB) = @_;
return (sprintf("#%02X%02X%02X", $r, $g, $b), $r, $g, $b);
return sprintf("#%02X%02X%02X", $r, $g, $b);