Perl基本技一：马克输出——OUTPUT原格式输出（print STDOUT << "EOF"）

sub ShowUsage { print STDOUT << "EOF"; moniter my computer disk usage: $0 file [-d] [-h] -d: excute -h: this (help) message EOF }

EOF 是一个标记的名字，自定义标记名称

执行：

ShowUsage();
显示：

用途：

常用做命令 --help信息.

PS：转载请注明出处. 作者：No. Liu