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