# it interpolates variables
print OUT <<"END_OF_PRINT";
Hello $world.

many lines
many lines
END_OF_PRINT

##</code><code>##

print OUT 
  "string1\n", 
  "string2\n",
  "string3\n",
;

##</code><code>##

open OUT, '>', $file or die "$file: open for writing failed: $!\n";

##</code><code>##

print OUT "text bla bla\n" or die "$file: print failed: $!\n";
close OUT or die "$file: close failed: $!\n";