Select Code to Download

    foreach $line (@data) {
        @line = split(/:/, $line);

 warn "..." unless $type;<code>
<p>which are both more efficient and clearer.

<p>However, you then go on to use $type as a hash key in
<p><code>       $by_type{$from}{$type} += $tmp_c;

print <<EOF;
Note:
...
 necessarily add up to the total messages sent from an IP. The total i
+s accurate and the
 breakdown may be short data.
EOF

sub process_it {
    my ($rec_line)  = grep(/received from internet:/, @_);
...
    }
    $by_ips{$from}+= $total_c;
}