A perl script to produce statistics out of Squid log files