perl pinger for Orakel