#!/usr/bin/perl
use strict;
use warnings;
my $cc="1";
unlink ('spool.dat');
open (OUT_LOG, '>>spool.dat');
open (OUT_HEADER, '>>spool.dat');
open (OUT_DETL, '>>spool.dat');
open (OUT_FOOT, '>>spool.dat');
open (OUT_BR, '>>spool.dat');

#=========================================================
format OUT_HEADER=
@<<<====      f0rmat HEADER HEADER HEADER           Page : @<<<
$cc, $cc 
.
format OUT_DETL=
@<<<========  f0ramt   detail line  =======================
$cc
.
format OUT_FOOT=
@<<<========  f0rmat  ===========FOOTER
$cc
.
format OUT_BR=
@<<<========= fOrmat  BREAK 
$cc
.
#=====================================================
write OUT_HEADER; $cc++;

write OUT_DETL; $cc++;
write OUT_DETL; $cc++;
write OUT_DETL; $cc++;
	write OUT_BR;    $cc++;

print OUT_LOG "$cc ................print after 1st break \n"; $cc++;

write OUT_DETL; $cc++;
write OUT_DETL; $cc++;
write OUT_DETL; $cc++;
	write OUT_BR; $cc++;
print OUT_LOG "$cc ...............print after 2nd break \n"; $cc++;

write OUT_FOOT; $cc++;

print  "basta \n";