using perl to parse vsftpd logs and give stats