Perlでping撃ちたいんですけど、

プロンプトみたいに、撃つ回数
平均時間、最短時間、最長時間
を得ることができますか？
リファレンスみると、生きてるか死んでるか、しかわからないみたいなので・・・