Perl - Term::ANSIColor

use Term::ANSIColor;

printf "sede a %4.4s\n", colored( 'barevne', 'magenta' );
$Term::ANSIColor::AUTORESET = 1; ... po kazdem barevnek tiksku reset barvy
print BOLD BLUE "Modry text.\n"; ... barevny text