my $red = color("red");
print $red;
my $reset = color('reset');
print ( $red ~ "--Red--" ~ $reset ~ "foo\n\n" );