## TEST get a list of tables
my @tables = $dbh->tables();

for my $i(sort @tables) {

  print uc $i . "\n\n";

  my $sth = $dbh->prepare("LISTFIELDS $i");

  $sth->execute;

  $sth->finish;

  sleep 1;

}