package xxxxxxxx; use strict ; use warnings ; use utf8 ; use Apache2::Const -compile => qw( OK REDIRECT ) ; sub handler { binmode(STDOUT, ":utf8") ; my $r = shift ; my $req = Apache2::Request->new( $r ) ; #récupérer les arguments my (%args, @args) ; #recherche des paramètres de la requête @args = $req->param ; for ( @args ) { $args{ $_ } = Encode::decode_utf8( $req->param($_) ) ; } [.....] }