use Term::ANSIColor qw(:constants);

print BLACK, ON_WHITE, "black on white\n";
print WHITE, ON_BLACK, "white on black\n";
print GREEN, ON_CYAN, BLINK, "garish!\n";
print RESET;

output in screen:

D:\sample>tes1.pl
?[30m?[47mblack on white
?[37m?[40mwhite on black
?[32m?[46m?[5mgarish!
?[0m