pingrate: reimplement in perl