Select Code to Download

my $sql = $dbh->prepare ("sp_columns $_") || die;;

my $sql = $dbh->prepare ("SHOW COLUMNS FROM $_") || die;

    my @tables = $dbh->ListTables;

...

    }

    my $sql = $dbh->prepare ("sp_help") || die;;
    my $sth = $sql->execute or die "no ".$DBI::errstr;
...
        }
        print "</TR>\n";

            if (! defined $$result_ref{$_})
            {
...

            print "<TD>",checkbox(-name=>"view",-checked=>"", -value=>
+"$$result_ref{$_}"),"</TD>";
            print "<TD>$$result_ref{$_}</TD>";