#!/usr/bin/perl

use if $^O eq 'MSWin32', Win32::Console::ANSI;
use if $^O eq 'MSWin32', Term::ANSIColor => qw(:constants);
if ($^O eq 'MSWin32') {
   $SUCCESS=GREEN;
   $BRIGHT_SUCCESS=BRIGHT_GREEN;
   $FAILURE=RED;
   $WARNING=YELLOW;
   $NORMAL=RESET;
   $cls='cls';
}
else {
	$FAILURE=`echo -en "\\033[1;31m"`;
	$SUCCESS=`echo -en "\\033[1;32m"`;
	$WARNING=`echo -en "\\033[1;33m"`;
	$NORMAL=`echo -en "\\033[0;39m"`;
	$cls='clear';
}

$RESULT="Test Line";

$line=sprintf("%s%s%s\n",$SUCCESS,$RESULT,$NORMAL);
print $line;  # <== This will print Green

$line=sprintf("%s%s%s\n",$BRIGHT_SUCCESS,$RESULT,$NORMAL);
print $line;   # <== This will print White...not Bright Green