use constant RESET     => 0;
use constant BRIGHT    => 1;
use constant DIM       => 2;
use constant UNDERLINE => 3;
use constant BLINK     => 4;
use constant REVERSE   => 7;
use constant HIDDEN    => 8;

use constant BLACK   => 0;
use constant RED     => 1;
use constant GREEN   => 2;
use constant YELLOW  => 3;
use constant BLUE    => 4;
use constant MAGENTA => 5;
use constant CYAN    => 6;
use constant WHITE   => 7;

sub textcolor($$$);

print textcolor( RESET, RED, BLACK ), "In color\n",
  textcolor( RESET, WHITE, BLACK );

sub textcolor($$$) {
    my ( $attr, $fg, $bg ) = @_;
    #Command is the control command to the terminal
    my $command = sprintf( "%c[%d;%d;%dm", 0x1B, $attr, $fg + 30, $bg 
++ 40 );
    return sprintf( "%s", $command );
}
[download]