どーしてもPerlで特定のポートにPINGを遅れない！
mms://111.222.333.444:5555
こういうアドレスにpingを飛ばして生存チェックをしたいわけですが、
5555番ポートにpingを送る手段が調べても出てこない・・・・
唯一近いと思ったのがNET::Ping、でもコレはポート指定出来ないくさいかんじ。
で、考えたのが画像を取得しに行くのと同じようにアドレスに対してアクセスしてみる方法
繋がっていても繋がっていなくても、応答コード501
その上コンテンツタイプはtext
なにこれ・・・orz
部分的にソースを抜き出してplとしてローカルで稼動させると503とか返ってきたりする。
さらに、手間を承知でソケットの生成から書いてみたら、200正常に繋がったりする。
（繋がってしまう問いデータをどんどん送られるから困る）
正常に繋がらない場合は、ヘッダのX-Serverってとこに「kagami/0.7.6」とか入ってる。
恐らく繋がってはいるので応答としてkagamiTOOLが503を返してきたものと推測。
しかし、ローカルで確認できるこの作業は鯖にあげると機能しなくなるという罠
land.toさんはソケットつくっちゃいかんのかな・・・
あぁ・・・行き詰まり・・・orz
