print header, start_html({-title=>"CGI Table"});

##</code><code>##

use DBIx::XHTML_Table;

my $table = DBIx::XHTML_Table->new("DBI:mysql:$dbname",$login,$password);
$table->exec_query($query);

print $table->output();