Index: misc/addr.pl
===================================================================
--- misc/addr.pl	(revision 4be622f7b1b38e3387d282357cb2f11598ca01d9)
+++ misc/addr.pl	(revision 4be622f7b1b38e3387d282357cb2f11598ca01d9)
@@ -0,0 +1,20 @@
+#! /usr/bin/perl -w
+
+use strict;
+use warnings;
+
+my $ip = '(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})';
+
+my $file = shift @ARGV;
+open FILE, $file;
+
+my $addr = {};
+while (my $line = <FILE>) {
+    if ($line =~ /^$ip/o) {
+        $addr->{$1}++;
+    }
+}
+
+foreach my $key (keys %$addr) {
+    print $key, "\t", $addr->{$key}, "\n";
+}