Select Code to Download

use strict;
use warnings;
...

        Total Slate Enterprises, Inc.:2001050.01                  28.0
+0

use Text::CSV_XS;
...
                $csv->combine( $co_id, $company, $item, $date, $person
+, $value );
                print $csv->string, "\n";