在perl中是借助Term::ANSIColor这个模块的：

#!/usr/bin/perl
use strict;
use Term::ANSIColor;
print color 'bold red';
print "Hello word\n";
print color 'reset';

这样写的话挺麻烦的，写个函数算了：

#!/usr/bin/perl
use strict;
use Term::ANSIColor;
sub ColorMessage{
my($colors,$messages) = @_;
print color "bold $colors";
print "$messages \n";
print color 'reset';
}

ColorMessage('green','Hello word ');