my($one_line) = '';
while ($one_line = <>)
{
  if ($one_line =~ !/^#+/)
  {
    ($source, $destination, $bytes) = split(/ /, $one_line);
    $net_activity{$source}{$destination} += $bytes;
  }# ignore comments

}# read in each line of the net log