Help for this page

Select Code to Download

Select or download this

foreach my $table (sort keys %tables)
{
...
    print "$table -> $field\n";
  }
}