#!/usr/bin/perl
### Trafficanalyse mit tcpdump

use warnings;

$| = 1;

$counta = time;

open(F,"bar");

print "\n [.";

while(<F>){

  @zeile = split /\s+/, $_;

  $summe += $zeile[4];

  $countb = time;

  if ( ($countb - $counta) > 1 ){

    print ".";

    $counta = time;

  }

}

print ".]\n\n Traffic in Byte: $summe\n\n";

close(F);