format FOO=
@||| @||| @|||
$x,$y,$z
.
$x=1;$y=2;$z=3;
$save = "";
open FOO, ">", \$save;
write FOO;
print "got:$save!\n";