#!/usr/bin/perl -w

use strict;
use DBI;

my $table = shift
	or die "syntax: $0 table < fields > query\n        $0 table fields > query\n";

my @fields;
if (@ARGV) {
	@fields = @ARGV;
} else {
	@fields = <STDIN>;
	for (@fields) { chomp; }
}

print "update $table set ";
print join ", ", map "$_ = ?", @fields;
print "\n";