my $OUT_WWW="test";
open ('$OUT_WWW', '>>spool.dat');

#=======================================================
format OUT_HEADER=
@<<<====      f0rmat HEADER HEADER HEADER           Page : @<<<
$cc, $cc 
.
format OUT_DETL=
@<<<========  f0ramt   detail line  =============
$cc
.
#========================================================
 $OUT_WWW="OUT_HEADER"; 
write "$OUT_WWW"; $cc++;