#!/usr/bin/perl

use strict;
use warnings;

use Term::ANSIColor qw(:constants);

print BOLD,BLUE,"This",RESET," is bold and blue.\n",RESET;
print "But ",RED,"this",RESET," is simply red.\n",RESET;