...
use EBL::Report;
...

# Auswertung
print "Anzahl OK: ".EBL::Report::ok_count."\n";
...

sub meinefunktion {  # für den Report-Counter muss NICHTS übergeben werden 
  ...
  EBL::Report::ok(); # increment OK Counter
}