Select Code to Download

print "\e[36;38mWELCOME\e[37m TO PERLMONKS\n";

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

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