$ST=$DB->prepare($SQL);
if (! $ST->execute(@args)) {
    $SQL=~s/\?/$_/ for @args;
    print "STATEMENT: $SQL\nERROR: $DBI::errstr\n\n";
}