sub queryDBI {
  my ($foo,$bar,$baz,$table)=@_;
  my $query="Select $foo, $bar, $baz from $table";