Pb find rsa public key (Pull mode)

Hello

I get an error when I want to retrieve the rsa public key

[root@poller-1 tmp]# perl gorgone_key_thumbprint.pl
Bareword found where operator expected at gorgone_key_thumbprint.pl line 9, near ""en" data"
        (Missing operator before data?)
Bareword found where operator expected at gorgone_key_thumbprint.pl line 9, near ""auto" data"
        (Missing operator before data?)
Bareword found where operator expected at gorgone_key_thumbprint.pl line 9, near ""light" data"
        (Missing operator before data?)
Bareword found where operator expected at gorgone_key_thumbprint.pl line 9, near ""dark" data"
        (Missing operator before data?)
Can't modify numeric lt (<) in scalar assignment at gorgone_key_thumbprint.pl line 9, near ""en" data"
syntax error at gorgone_key_thumbprint.pl line 9, near ""en" data"
Excessively long <> operator at gorgone_key_thumbprint.pl line 28.

OS centos 7
perl v5.16.3
centreon 22.04

Thanks for your help