Perl 颜色

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

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