perl based ping parser