#!/usr/bin/perl -w

use strict;

my $newnum = 0;

while (<>) {
    next if $_ =~ /data bytes/;
    my ($a, $b) = split (/:/, $_);
    chomp $b;
    my ($seq, $seqnum, $lat, $latsec) = split '=', $b;
    $seqnum =~ s/\s+//;
    $seqnum =~ s/.time//;
    # for debug...
    # print "seq: $seqnum\texpected: $newnum\n";
    unless ($seqnum == $newnum ) {
        print "Ping failed at " . localtime(time - ($seqnum - $newnum)) . "\t";
        print "restored at " . localtime() . "\t";
        print "Total Time (s) = " . ($seqnum - $newnum) . "\n";
    }

    $newnum = $seqnum + 1;
}