thanks marto .
can you suggest me any way of getting the dependencies also

http://search.cpan.org/~timb/DBI-1.616/DBI.pm#foreign_key_info

More permalink: http://search.cpan.org/perldoc?DBI#foreign_key_info
The "permalink" in the upper right corner of http://search.cpan.org/perldoc?DBI is a handy starting point.

I'm sure you can search the WWW. "postgres list foreign keys" proved successful for me. (I'm not allowed to link to external sites as anonymous)

Furthermore, you can run psql -E and use the backslash-functions (e.g. \d) and watch the SQL it issues to figure out what fetches the foreign keys.

moritz isn't marto ;) Perhaps you could show us what you did to install the module, the code you are running, and what doesn't work. See How do I post a question effectively? (again).

oops sorry moritz :)
i have this with me


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

and from the example in Sort::Topological i have


 my %children = (
                  'a' => [ 'b', 'c' ],
                  'c' => [ 'x' ],
                  'b' => [ 'x' ],
                  'x' => [ 'y' ],
                  'y' => [ 'z' ],
                  'z' => [ ],
                  );
  sub children { @{$children{$_[0]} || []}; } 
  my @unsorted = ( 'z', 'a', 'x', 'c', 'b', 'y' );
  my @sorted = toposort(\&children, \@unsorted);
[download]

so i am planning something like foreach element in @tables i should call get_deps which will return the contents to be put inside a => 'here'