format FH =
^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<~~
$var1
.

$var1 = "hahhahahahaThis is my great big long string of more " .
    "than 60 characters hahahahahahahahahahahahahaahahahhahah" ;

open (FH, "> somefile.txt");

write FH;

close FH;