With Apache, you can use Apache2::Request (https://metacpan.org/pod/Apache2::Request); in a mod_perl module, it works like in cgi.pm:

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

    }

[.....]

}
[download]