print $cgi->h4 ("Use the web browser to select tables to view!");
print $cgi->start_form (-method => "POST");
print $cgi->submit (-name => "submit", -value => "Browse");
print $cgi->end_form ();

print $cgi->end_html ();

$dbh->disconnect ();


 $sth = $dbh->prepare (qq{
                            SHOW TABLES;
                            });
         
 $sth->execute ();
       

while (my @ary = $sth->fetchrow_array ())     {


   print join ("\t", @ary), "\n";

}