Perl注释文本的高亮显示规则

sub help{

print <<EndOfUsage;
e[1;37m
HELP :
1. Usage :  perl $0 input output
2. Function : transfer cds to pep               
3. Example : perl $0 test.cds  test.pep
e[0m
EndOfUsage

}