perl script for monitoring redis server