Select Code to Download

    my $formula = $worksheet->store_formula('=A1 * 3 + 50');

    for my $row (0..999) {
        $worksheet->repeat_formula($row, 1, $formula, $format, 'A1', '
+A'.($row +1));
    }

$worksheet->write_formula($row+2, 12, '=1-(K.($row+2)/J.($row+2))',$al
+ignPerc);

                        Deal Sheet Summary                            
+                        
DE Date    DE #    Ver    OP #    SO #    Rep    Customer    Deal Name
+    Sell    Book Value    Field Cost    Book Adjust    Field Margin  
+  Trade In    SW Maint    HW Maint    Services Sell    Services Cost 
+   Services Margin    Floor
2008-07-17    1001812321    0    807579    0    Sales Rep    Customer 
+1    Customer 1 deal    $5,885    $4,887    $1,228    -$93    100.00%
+    $0    $1,814    $0    $0    $0    0.00%    Breaks Price Floor 2

#!/usr/bin/perl

...
$workbook->close();

exit;