Select Code to Download

#!/usr/bin/perl -w
use strict;
...
                                               $total,
' =========================================================== ',
;

 ===========================================================
|                       Goods in Stock                      |
...
|===========================================================|
|                       Total Value In Stock    $750022.0   |
 ===========================================================