[oracle@jhoa ~]$ cat d1.pl 
my $red="\e[1;31m";
print  "$red xx\n";
my $green="\e[1;32m";
print  "$green xx\n";
my $yellow="\e[1;33m";
print  "$yellow xx\n";
my $normal="\e[0m";
print  "$normal xx\n";

[oracle@jhoa ~]$ perl d1.pl 
 xx
 xx
 xx
 xx
[oracle@jhoa ~]$