Select Code to Download

$sth = $dbh->prepare(qq{select  BIB_TEXT.BIB_ID, BIB_TEXT.TITLE_BRIEF,
+TO_CHAR(BIB_ITEM.ADD_DATE, 'YYYYMMDDHHMISS'),
                                MFHD_MASTER.DISPLAY_CALL_NO, ITEM.ITEM
+_ID, BIB_MFHD.MFHD_ID,TO_CHAR(ADD_MONTHS(SysDate, -3),'YYYYMMDDHHMISS
+'), 
                LINE_ITEM.BIB_ID, LINE_ITEM.REQUESTOR, LOCATION.LOCATI
+ON_DISPLAY_NAME, MFHD_MASTER.LOCATION_ID, BIB_TEXT.ISBN 
...
$sth->bind_col( 10, \$location );
$sth->bind_col( 11, \$loca_id );
$sth->bind_col( 12, \$isbn );

$sth = $dbh->prepare(qq{select  BIB_TEXT.BIB_ID, 
BIB_TEXT.TITLE_BRIEF,
BIB_MASTER.CREATE_DATE,
...
$sth->bind_col( 10, \$location );
$sth->bind_col( 11, \$loca_id );
$sth->bind_col( 12, \$isbn );