my $UL = "\e[36;38m";
my $UE = "\e[37m";

print "${UL}WELCOME$UE TO PERLMONKS\n";