use Term::ANSIColor;
use strict;

my $db = 'bas.txt';
open(DATA, "$db") or die "Can not open: $!\n";
our @dat = (<DATA>);
close(DATA);
open(DATA, ">$db") or die "NO GO: $!\n";
                                     
foreach (@dat)
{

print DATA color("red"), "word colors\n", color("reset");
}
close(DATA);