open (my $fh, "<", $dateiPfad) or die $!;
my $benutzer = 0;
while (<$fh>) {
  $benutzer += $1 if /#info users (\d+)/;
} # while
print $benutzer/$.;
close $datei;