format FOO =
@<<<<<<<<<<<
$Reserve_1
.

..in a nearby piece of code..

open(FOO, ">myfile");
select(FOO);
write;