#!/usr/local/bin/perl
    $|++;
    use Apache::ParseLog;                                                                                
    $conf = "/path/to/httpd.conf";
    $base = new Apache::ParseLog($conf);                                                                                
    $log = $base->getCustomLog("combined");
    %user = $log->user();
    print "Users Report\n";
    foreach (sort keys %user) {
        print "$_:\t$user{$_}\n" unless m/^-$/;
    }                                                                                
    exit;