Perl based ping tracker