ping監視をperlで書き直し、http監視を追加