保存字符串到文件

$append = 0;
if ($append)
 {
 open(MYOUTFILE, ">filename.out"); #open for write, overwrite
 }
else
 {
 open(MYOUTFILE, ">>filename.out"); #open for write, append
 }
print MYOUTFILE "Timestamp: "; #write text, no newline
print MYOUTFILE &timestamp(); #write text-returning fcn
print MYOUTFILE "\n"; #write newline
 
#*** Print freeform text, semicol required ***
print MYOUTFILE <<"MyLabel";
Steve was here
and now is gone
but left his name
to carry on.
MyLabel
 
#*** Close the file ***
close(MYOUTFILE);