#!/usr/bin/perl
$FAILURE=`echo -en "\\033[1;31m"`;
$SUCCESS=`echo -en "\\033[1;32m"`;
$NORMAL=`echo -en "\\033[0;39m"`;
$RESULT="JUST A SIMPLE LINE";
$line=sprintf("%s%s%s %s\n",$SUCCESS,$RESULT,$NORMAL);
print "$line\n";
$line=sprintf("%s%s%s %s\n",$FAILURE,$RESULT,$NORMAL);
print "$line\n";