#!/usr/bin/perl -w
use strict;
use warnings;


# Get the IP number from each line...
while (<$INFILE>) {
  chomp;
  my $inline=$_;
  /(\d+.\d+.\d+.\d+)\s(.*)/;
print $LOG "$1\n";
# . . .
}
# . . .
# Create list of accesses, most frequent first.
while(<$LOG>)	{
	chomp;
	my $line=$_;
	$seen{$line}++;
}
# . . .
foreach my $seenval  ( sort {$seen{$b} <=> $seen{$a} } keys %seen)	{
	next unless $seenval;
	print $FREQ "$seenval\t$seen{$seenval}\n";
}