#!/usr/bin/perl -w

use strict;
use DBI;

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

print "where ";
print join " and ", map "$_ = ?", @fields;
print "\n";