if ( $mode eq 'draft') {

  #display an editable draft
}
elsif ( $mode eq 'preview' ) {

  #preview 
}
elsif ( $mode eq 'create' ) {

  my $param_cnt = 0; # number of lines of the output

  print h2( "DEBUG 0 " );

  foreach ( param() ) {
	
    $param_cnt++ if ( $_ =~ /concerne/ );
  }

  print h2( "DEBUG 1 : $param_cnt" );

  # goes on
}