Select Code to Download

# it interpolates variables
print OUT <<"END_OF_PRINT";
...
many lines
many lines
END_OF_PRINT

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

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

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