my @tables = $dbh->ListTables;

    print "<TABLE Border = 1>\n<TH>Select me!</TH>";
    foreach (@tables)
    {
        print "<TR><TD>",checkbox(-name=>"view",-checked=>"", -value=>"$tables[$_]"),"</TD>";

        if(! (defined $tables[$_]) )
        {
            print "<TD>--undef--</TD>";
        }
        else
        {
            print "<TD>$tables[$_]</TD>";
        }
        print "</TR>\n";

    }