print startform(-action=>'d.cgi',-target=>'_top'),table(Tr(\@table_cont)),submit(-name=>'Submit'),reset(-name=>'Reset'),end_form;