Если быстро, то следует установить
$CGI::LIST_CONTEXT_WARN = 0
https://metacpan.org/dist/CGI/view/lib/CGI.pod
Такой ворнинг возникает когда в запросе передается несколько значений для одного параметра, т.е.
/service?foo=1&foo=2
Если такой запрос вполне допустимый, то следует использовать конструкцию
my @values = $query -> param( 'foo' );
и обрабатывать и обрабатывать именно массив значений
ну или еще возможный вариант с исправлением
my ( $value ) = $query -> param( 'foo' );
Первый ворнинго в 71 строке можно приблизительно так поправить
my $foo = $query -> param( 'foo' );
if( $foo && ( $foo ne ''something' ) { ... }
