Select Code to Download

$sth->bind_col( 1, \$bib_id );
$sth->bind_col( 2, \$_title_marc );
...
$sth->bind_col( 7, \$location );
$sth->bind_col( 8, \$loca_id );
$sth->bind_col( 9, \$isbn );

$dbh->do (qq{insert into newbooks values('$s_title','$timedate','$subj
+ect','','$callno','$url','$display_date','$location','$loca_id','$isb
+n')});