open EOS_REPORT, "| lp -d lex_text" or die "Cannot open EOS report for printing: $!";

# lots of code to assemble data

write EOS_REPORT;
close EOS_REPORT;

format EOS_REPORT_TOP =
                                           @>>>>>>>>>>>>>>>>>>>
										   'Page: ' . $%
@||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
"End of day register report"
@||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
$today

Run by:  @<<<<<<<<<<<<<<<<<<<<    @>>>>>>>>>>>>>>>>>>>>>>>>>>>>
         $name,                          "Terminal: ".$hostname

.

format EOS_REPORT =

    Total Sales
---------------
@>>>>>>>>>>>>>>
$total

     Total Cash     Total Account       Total Check
---------------   ---------------   ---------------
@>>>>>>>>>>>>>>   @>>>>>>>>>>>>>>   @>>>>>>>>>>>>>>
$tcash,           $taccount,        $tcheck

 CC Manual Auth      Total Credit
---------------   ---------------
@>>>>>>>>>>>>>>   @>>>>>>>>>>>>>>
$tcc_man_auth,           $tcredit



@||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
"Price Overrides"
@||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
"(Negative quantities are overrides on refunds)"

Clerk                SKU                   Old price  New price
-------------------  -------------------- ---------- ----------
^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~~
$override_report
.