$DSN = 'DBI:ODBC:SearchWords';
$USER= '';
$PASS= 'password';
$DBH = DBI->connect( $DSN, $USER, $USER ) || die "Connect Error: $DBI::errstr\n";
my $SQL = "SELECT * FROM [Production Words]";
my $sth = $DBH->prepare($SQL);
$sth->execute || die "Could not execute SQL statement ... maybe invalid?\n$!";
$sth->bind_columns(\$aid,\$wd,\$we,\$df,\$lw,\$sw);
while($sth->fetch()) {
  print "$aid\t$wd\t$we\t$df\t$lw\t$sw\n";
}
$DBH->disconnect();