$dbh = DBI->connect($DSN, $user, $passwd) || die "Cannot connect: $DBI:errstr\n";
$drh = DBI->install_driver("mysql");
...
$SQLText = "UPDATE gold SET amount = $Gold WHERE id = $goldID";
$sth    = $dbh->prepare($SQLText);
$query  = $sth1->execute;