$dbh->do("INSERT INTO links VALUES (('$bc','$cd','$de','$ef'," . $dbh->quote("$fg") . ",'$gh','$hi','$ij','$jk','$kl','$lm','$mn')");

my $dbh = DBI->connect ( bla );

my $query = 'INSERT INTO Table VALUES (';

foreach (keys %hash) {
$query .= $dbh->quote($hash{$_}) . ',';
}
chop $query;

$query .= ')';

my $sth = $dbh->prepare($query) or &error($DBI::errstr);

$sth->execute or &error($DBI::errstr);

$sth->finish;

sub error {

print "Content-type: text/html\n\n";
print shift;
exit;

}

use DBI();


my $dbh = DBI->connect("DBI:mysql:crashint_link:localhost","crashint", "pass") or &error($DBI::errstr);

my $query = 'INSERT INTO Table VALUES (';

open(LINKS, "</home/crashint/public_html/data.txt");
while(<LINKS>) {
%data = split /\|/;

foreach (keys %data) { $query .= $dbh->quote($data{$_}) . ',';}

chop $query;


}
close(LINKS);

$query .= ')';
my $sth = $dbh->prepare($query) or &error($DBI::errstr);

print "$query";

$sth->execute or &error($DBI::errstr);
$sth->finish;


# Disconnect from the database.
$dbh->disconnect();

sub error {
print shift;
exit;
}

use DBI;

my $query;
my (@data,@line);
my $dbh = DBI->connect("DBI:mysql:crashint_link:localhost","crashint", "pass")
or &error($DBI::errstr);

open(LINKS, "</home/crashint/public_html/data.txt");
@data = <LINKS>;
close LINKS;


foreach (@data) {
undef $query;
undef @line;
chomp;
@line = split /\|/;
$query = 'INSERT INTO Table VALUES (';
$query .= $dbh->quote($line[$_]) . ',' foreach @line;
chop $query;
$query .= ')';
$sth = $dbh->prepare($query) or &error($DBI::errstr);
$sth->execute or &error($DBI::errstr);
$sth->finish;
}
$dbh->disconnect();

sub error { print shift; exit; }