#!/usr/local/bin/perl

use warnings;
use strict;

use GDBM_File;
use Fcntl qw(O_CREAT O_RDWR);
use Data::Dumper;

tie my %history, 'GDBM_File', "$ENV{HOME}/pinger/history", O_CREAT|O_RDWR, 0600;

print "Loss%\tTime\n";
foreach my $key (sort { $a <=> $b } grep { /^\d+$/ } keys %history) {
        print "$history{$key}\t".scalar(localtime($key))."\n";
}