Select Code to Download

        $sth1=$Dbh->prepare("
             select a.contracting_office_text||h.piin as CONTRACT_NO,
                      substr(h.dodaac, 4, 3)||h.piin||h.call_no as CAL
+L_NO,
...
              and h.dov_date = ?
              ") 
        or die "Prepare failed: $DBI::errstr";