use Term::ANSIColor;
open (FILE, ">text.txt") or die "Can't open file\n";
print FILE, color("red"), "Stop!\n", color("reset");
print FILE, color("green"), "Go!\n", color("reset");