use Term::ANSIColor qw(:constants);
print STDERR RED, "foo \n", RESET;