#!/usr/bin/perl -w

$count =0;
open(FILE, "</var/log/httpd/access_log") or die "I stink";
while (($line = <FILE>) && $count < 10)
{
	($hostname, $junk) = split(/ /, $line);
	$junk = $junk;
	print "$hostname\n";
	$number{$hostname}++;
	print "$hostname has accessed me $number{$hostname} times\n";
	$count++;
}
