print
    $q->start_table({-border=>'1', -align=>'center',-cellpadding=>'6'}),"\n\n";
while ( @data = $sth->fetchrow_array()){
  print
    $q->start_Tr,"\n", # This '\n' is useful only in case someone reads the HTML source 
    map ({ td({-align=>'left'},decode("utf-8",$_) )."\n" } @data),
    $q->end_Tr,"\n";
}
print $q->end_table,"\n";