#!/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 "select ";
print join ", ", @fields;
print " from $table";
print "\n";