perl script for zabbix