a quick perl script to warn someone if apache spawns too many processes