Select Code to Download

 $sth= $dbh->prepare("select dedate,de,den,op,so,rep,customer,dealn,cc
+o,ebv,fcost,fmarg,bookad,tir,swmaint,hwmaint,svsums,svcost,svmarg,flo
+or
            from quote");                          

...
                 $worksheet->write_number($row+2, 9, $ebv,$alignld);
                $worksheet->write_number($row+2, 10, $fcost,$alignld);
                $worksheet->write_formula($row+2, 12, '=1-(K.($row+2)/
+J.($row+2))'

 my $emc = $dbh->prepare("SELECT a.`function`, b.`fname`, b.`lname`, b
+.`email`, b.`ophone`, b.`cphone`, b.`geo` FROM `acct` a, `emc` b WHER
+E a.`cid` ='BBYPRD' AND b.`eid` = a.`eid` order by function;");
$emc->execute or die $emc->errstr;

...
    {
     $worksheet1->write_row($row++,$col,$data[6],$data[5], $data[4],$d
+ata[3], $data[2], $data[1], $data[0]);
}