Select Code to Download

$ perl -wE'say 5.5*1024 / length("Nov 17 11:09:25 proxy02 kernel: OUTP
+UT LOGIN= OUT=eth0 SRC=11.11.11.0 DST=192.168.3.1 LEN=1420 TOS=0x00 P
+REC=0x00 TTL=64 ID=10523 DF PROTO=TCP SPT=3128 DPT=1921 WINDOW=16659 
+RES=0x00 ACK URGP=0\n")'
29.0309278350515

$ perl -MDevel::Size=total_size -wE'my %h; for (1..100) { ++$h{ pack "
+C4", 1,2,3,$_ } } say total_size(\%h)/100'
47.56

use strict;
use warnings;
...


main();