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 是一个标记的名字，自定义标记名称