Select Code to Download

while (<>)
{
...
    $net_activity{$source}{$destination} += $bytes;
  }# ignore comments
}# read in each line of the net log

my($one_line) = '';
while ($one_line = <>)
...
  }# ignore comments

}# read in each line of the net log

Use of uninitialized value in pattern match (m//) at ./net_traffic2 li
+ne 14, <> line 5.