#!/perl -w

use strict;
use warnings;

#use Term::ANSIColor qw(uncolor);
#use Term::ANSIColor qw(:constants);
#print BOLD, BLUE, "This text is in bold blue.\n", RESET; 
# print uncolor '01;31', "\n";
use Win32::Console::ANSI;
#use Term::ANSIColor qw(:pushpop);
use Term::ANSIColor qw(:constants);
#print PUSHCOLOR RED ON_GREEN "This text is red on green.\n";
#print PUSHCOLOR BLUE "This text is blue on green.\n";
print RESET BLUE "This text is just blue.\n";
#print POPCOLOR "Back to red on green.\n";
#print LOCALCOLOR GREEN ON_BLUE "This text is green on blue.\n";
print GREEN ON_BLUE "This text is green on blue.\n";
print "This text is red on green.\n";

my $col1 = 0x1b."[2:3:";

print "1 $col1 234\n";

