Select Code to Download

while (<LOG>) {
    my ($source, $sport, $to, $dport, $proto, $packs, $bytes) = split;
...
    }
    $total += $bytes;
}

perl -e '$k="aaaaa";
 for $i (1..1_000_000)
...
 {$h1{$k}={foo=>"bar",bar=>"foo"}; $h2{$k}++; $h3{$k}=$i; $k++}
 sleep 20'
## consumes 360 MB in ~16.5 sec