Paramètres reçu par le CGI différent de celui envoyé

Bonjour,

J'observe un comportement erratique lors de la r=E9ception d'un
param=E8tre re=E7u par un CGI. En effet, je POST du XML =E0 un CGI dans
lequel une chaine est encod=E9e en base64. Cependant la chaine n'est pas
celle envoy=E9e :-(

cat sendxmltocgi.pl :
------------------------------

use LWP::UserAgent;
use Data::Dumper;
use constant CORRECTION=3D>1;

my $smil=3D<<EOF;
<essai>
<content>
<text src=3D"http://localhost/remote_repository/file1.txt"
region=3D"Texte"/>
<text src=3D"http://localhost/remote_repository/file2.txt"
region=3D"Texte"/>
</content>
</essai>
EOF
use MIME::Base64;

$fxml=3D'xml=3D<?xml version=3D"1.0" encoding=3D"UTF-8" ?
>'.'<content>'.encode_base64($smil).'</content>';
my $ua =3D LWP::UserAgent->new;
$ua->agent($ua);
my $req =3D HTTP::Request->new(POST =3D>"http://localhost/perl/cgi.pl");
$req->content_type('application/x-www-form-urlencoded');
$req->content($fxml);
my $res =3D $ua->request($req);
if ($res->is_success) {
if(!CORRECTION)
{print Dumper decode_base64($1) if($res->content=3D~/
content>([^<]*)</)}
else
{
if($res->content=3D~/content>([^<]*)</)
{
my $c=3D$1;
$c=3D~s/ /+/g;
print Dumper decode_base64($c)
}
}
}
else {
print $res->status_line, $/;
}

cat cgi.pl :
---------------

use CGI qw/:cgi/;
use Data::Dumper;

print header();
print Dumper(param('xml'));


J'ai ajout=E9 une constante CORRECTION dans le premier script qui permet
de modifier le champ re=E7u pour obtenir le bon r=E9sultat. Par contre
j'ai bien peur que cette correction ne soit valable que pour cette
chaine dont je connais la valeur encod=E9e. Cependant je me demande
pourquoi la chaine re=E7u n'est pas la m=EAme que celle envoy=E9e !

Merci =E0 tous.