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

}