Mega Code Archive
Save formatted data to a file
open (FILEHANDLE, ">format.txt") or die ("Cannot open format.txt");
format FILEHANDLE =
@<<<<<<<<<<<@>>>>>>>>>>>>>>>
$text1 $text2
.
$text1 = "Hello";
$text2 = "there!";
write FILEHANDLE;
close (FILEHANDLE);