sub GetStats {
        my $ref_files = shift @_;
        my (%lkup_by_who, %lkup_by_how, %lkup_by_from, %lkup_by_ftp);

        foreach my $file (@$ref_files) {
                open "LAST", "<", $file
                        or croak "Cannot open file $file - $!\n";
                print "Reading file $file ... \n";
                while (<LAST>) {
                        my ($who, $how, $from, @junk) = split (/\s+/);
                        next if (!$who or !$how or !$from);
                        next if (/wtmp begins/);
                        if ($how eq "console") {
                                $how = $from;
                                next;
                        }
                        $from =~ s/:\d+(\.\d+)?//g;
                        $lkup_by_who{$file}{"$who"}++;
                        $lkup_by_from{$file}{"$from"}++;
                        if ($how eq "ftp") {
                                $lkup_by_ftp{$file}{"$who"}++;
                        }
                }
                close (LAST);
        }
        return (\%lkup_by_who, \%lkup_by_from, \%lkup_by_ftp);
}