my $dbh = DBI->connect("DBI:mysql:database=$sql_database;host=$sql_host;port=$sql_port",
                       $username,
                       $password,
                       {
                            RaiseError => 0,
                        }
                       )
    or die "DB connect failed: $DBI::errstr";
	
for my $record (@records) {
    unless ($dbh->do($insertstr,
                     undef,
                     $slice->seq_region_name(),
                     $vf->start $vf->variation_name(),
                     $vf->allele_string()
            )) {
        print INSERTLOG "failed to insert", , "\n";

    } #end unless
}#end loop