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

use Apache::ParseLog;

my $parseObj = new  Apache::ParseLog();
$parseObj = 
	$parseObj->config(transferlog => '/usr/local/apache/logs/access_log');
my $transferLog = $parseObj->getTransferLog();

my %hosts = $transferLog->host();

foreach my $key (keys %hosts)
{
	print "$key => $hosts{$key}\n";
}