my $cui = new Curses::UI(-color_support=>1); # create a curses object
my $co = $Curses::UI::color_object;
$Curses::UI::color_object->define_color('orange',255,140,1);