if ($ARGV[0]) {

        go();
}
else {
die "\nUsage: stats.pl [filename] [filename} ...\n\n";
}


sub go() {

foreach $filename (@ARGV) {

$file = $filename;

open (FILE, $file);

$i = 0;
my @list="";

while (<FILE>) {

        /(.*)\s-\s-/;
        $ip = $1;

        if (notInList($ip))
        {
        $i++;
        addToList($ip);
        }
}

print "\nVisits for $file is $i\n";


}

}

# Subfunctions

sub addToList($ip)

{

        push @list,$ip;
}

sub notInList($ip)

{

        foreach $tmpip (@list)
        {
                if ($tmpip eq $ip) { return 0; last;}
        }

return 1;
}