use Term::ANSIColor;  
print color("red"), "Danger, Will Robinson!\n", 
color("reset"); 
print "This is just normal text.\n";