Term::ANSIColor 使用

use Term::ANSIColor qw(:constants);
$Term::ANSIColor::AUTORESET = 1;
print BOLD BLUE "This text is in bold blue.\n";
print "This text is normal.\n";

use Term::ANSIColor qw(:constants);
$Term::ANSIColor::AUTORESET = 1;

my @colors = qw(CLEAR RESET BOLD DARK UNDERLINE UNDERSCORE BLINK REVERSE CONCEALED BLACK RED GREEN YELLOW BLUE MAGENTA CYAN WHITE ON_BLACK ON_RED ON_GREEN ON_YELLOW ON_BLUE ON_MAGENTA ON_CYAN ON_WHITE);
for my $color (@colors)
{
print eval $color, "$color";
print CLEAR, "\n";
}