#!/usr/bin/perl

use strict;
use warnings;
use utf8;
use EBL::Report

my $report_counter=Report;

#...
# dann ist meine Auswertung irgendwann zuende ..
print "Anzahl OK: ".$report_counter->ok_count."\n";

exit();

# meine Sub
sub meinefunktion {
  my counter = shift;

  # hier zähle ich den Counter hoch wenn irgendetwas ist
  # if ....
  $counter->ok;

}