use Term::ANSIColor qw(:constants);

 print BOLD, RED, "ERROR!! Muahahahaha!!!\n", RESET;
 print "I'm fine now, thanks\n";