using perl to parse apache logs and give stats