A perl script to product statistics out of Squid log files