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

##</code><code>##

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