package Report;
use strict;
use warnings;

my ($ok,$warning,$error,$fatal) = (0,0,0,0);

sub ok {
  my $msg = shift;
  $ok++;
  print "OK: ".$msg."\n";
}

sub warning { $warning++; ...  }
sub error { $error++;...}
sub fatal {$fatal++; ...}

sub final_report {
  print "$ok OK, $warning WARNINGS, $rerror ERRORS, $fatal FATAL\n";
}

sub ok_count { $ok};
sub warning_count {$warning;}
sub error_count {$error;}
sub fatal_count {$fatal;}

1;