$STable = 'tab001';
print $query->start_multipart_form("POST","printFields");
print $query->checkbox_group(-name=>'FieldNames',
                             -value=>[ @array ]);
$query->param(  -name=>'TblMenu',
                -value=>$STable);
print $query->submit('doWhat','Print Fields');
print $query->end_form;