Select Code to Download

while (!eof(INPUT)) {
   $record = <INPUT>;
...
   }
   $DB->doQuery($report->{insertSQL}, $reportDate, @records);
}

sub doQuery {
   my $self = shift;
...
    
   return $self;
}

INSERT INTO QID.dbo.ReportT52 (report_date, insert_date, loan_num, loa
+n_id, date_paid, payment_num, escrow, principal, interest, service_fe
+e, net_interest, deposit_remit, balance, late_chg, other_trust, pi_co
+nstant, ann_ir, sf_rate, due_date) VALUES (?, GETDATE(), ?, ?, ?, ?, 
+?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)