Select Code to Download

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

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