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

@ARGV = qw(/var/log/apache/access_log) unless @ARGV;

my %source;

while(<>) {
    next unless /cmd\.exe/;
    my ($ip) = /^(\S+)/;
    $source{$ip}++;
}

printf "%-6s %10s\n", $source{$_}, $_ for keys %source;
printf "%15s %10s\n", "Total:", scalar keys %source;