print $qry->table ({ Border => 1, Cellpadding => 3, bordercolor =>"#FFFFFF"},
Tr(
      td(checkbox(-name => 'P', -id =>'P', -value=> 'Pri', -onClick => "CheckBoxes()")),
      td(checkbox(-name => 'F', -id =>'F', -value=> 'For', -onClick => "CheckBoxes()")),
      td(checkbox(-name => 'K', -id =>'K', -value=> 'Kap', -onClick => "CheckBoxes()")),
      td(checkbox(-name => 'Ej',-id =>'Ej', -value=> 'Ej', -checked => 'checked', -onClick => "CheckBoxes()")));