You might find some useful insights in Net::Ping, the mini series. Unfortunately, much covered there is still true, I believe (mea culpa).