ansi_colors.pl

#!/usr/bin/perl -w
use strict;
use Term::ANSIColor qw(:constants);

my $line = "|Betty is cool?!?!.|";

print RED, "Stop!\n", RESET;
print YELLOW, "Slow Down!\n", RESET;
print GREEN, "Go!\n", RESET;



printf "%-10s%-50s %s %s %s %s\n", BLUE, "file1 6", RESET, GREEN, "$line", RESET, "7th";
printf "%-10s%-50s %s %s %s %s %s\n", BLUE, "file1 6", RESET, GREEN, "$line", RESET, "7th";


print "done.\n";