sub script {
  my $Report="";
  sub note {
      my ($titre,$texte) = @_;
      my $Texte= '<H5>'.$titre.'</H5>ญญ<P>'.$texte.'</P>';
      $Report .=$Texte;
  }
  note($title,$text);
  print STDERR "*update.pl: end \n[\n$Report\n]\n";
}
script();
script();
script();