#!/usr/bin/perl
### IP-Accounting fuer OpenBSD 

use warnings;

open(F, "online") || die "Cannot open File online!";
@all = <F>;
close(F);

foreach(@all){
  @zeile = split /\s+/, $_;
  $y = $zeile[4] + $zeile[3];
  $z += $y; 
}
$x = $z / 1024 / 1024;
print "Summe: $z Byte ($x MByte)\n";