my $sth = $dbh->prepare("select tablename from pg_tables where schemaname=?");
    $sth->execute($schema);
    my @tables;
    while (my @t = $sth->fetchrow_array) {
        push @tables, @t;
    }
    $sth->finish;