print $q->table   ({    -border=>"1",
                              -width=>"100%",
                              -cellSpacing=>"0",
                              -cellPadding=>"3"},
             Tr(td({-class=>'TXT1TABLE',-bgcolor=>"$GLOB_WEBPAGECOLOURS{BG1}"},\@HEADERNAMES)) ,
             Tr(td({-class=>'TXT2TABLE',-bgcolor=>"$GLOB_WEBPAGECOLOURS{BG2}"},\@HEADERDATA)));