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();

##</code><code>##

*update.pl: end
[
<H5></H5>กก<P></P>
]
*update.pl: end
[

]
*update.pl: end
[

]