#!/opt/bin/perl
#
unshift(@INC, '/opt/lib/problem');
#
require "analyze.pl";
#
@count = &analyze();
#
print "\n";
print "Im Moment befinden sich\n";
print "\n";
#
$sum = 0;
#
for ( $i = $#count; $i >= 0; $i-- )
{
    printf("%5s Problem Reports oder Bestellungen mit Prioritaet $i\n",
      $count[$i]) if ($count[$i] > 0);
    $sum += $count[$i];
}
#
print "\n";
print "(also insgesamt $sum Problem Reports oder Bestellungen)\n";
print "\n";
print "in der Warteschlange oder in Arbeit.\n";
print "\n";
#
__END__