Select Code to Download

if (my $dbh1 = DBI->connect("DBI:mysql:database=$row[0]:host=xxxxx",$d
+b_user,$db_pass,{RaiseError=>1})) {
    print "SUCCESS\n";
    push (@book_database_urls, $row[0]);
}