Select Code to Download

$ticks = time();
....
$ticks = time() - $ticks;
print "$count Records updated in $ticks seconds\n";

my(%map) = qq(  'AMNT_PAID',            '0.0',
                'AMOUNT',               '{PurchAmt}',
                'DELIVERY_NOTE',        '"{Delivery}"',
                'EXPORTED',             'IF({Exported}, "Y", "N")',
                'FUNDS',                'IF("{CompanyID}"="BCU", "USD"
+, "CAD")');

# Create a set list from the data and the data map

...
   chop($result);       # remove trailing ,
   return($result);
}