perl script for add host for centreon