#!/usr/bin/perl -w
#
# sump0f
#
# summarize passive OS fingerprint output from p0f
#
# Nick DeBaggis
#

use strict;

my %hash;
my @arr;

while(<>){
   chomp;
   $hash{$_}++;
}

print "Statistics\n";

foreach(sort {$hash{$b} <=> $hash{$a}} keys %hash){
   print "$_ $hash{$_}\n";
}