#!/usr/bin/perl
use strict;
use warnings;
use Term::ANSIColor qw(:constants);
 
$Term::ANSIColor::AUTORESET = 1;
 
print BOLD RED   "RED\n";
print BOLD GREEN "GREEN\n";
print BOLD BLUE  "BLUE\n";