code:

#!/usr/bin/perl -w
use strict;
my @spamdirs;
push(@spamdirs, "/somewhere/.maildir/.spam/cur/");
push(@spamdirs, "/somewhere/.maildir/.spam/new/");
my @files;
foreach my $spamdir (@spamdirs) {
opendir(my $dp, $spamdir)
or die("Can't open directory $spamdir: $!\n");
while (my $filename = readdir($dp)) {
next if ($filename =~ /^\./);
push(@files, $spamdir . $filename);
}
closedir($dp);
}
my %scores;
my $total=0;
foreach my $filename(@files) {
$scores{get_score_from_file($filename)}+=1;
$total+=1;
}
        my @sortedkeys = sort({$a <=> $b} keys %scores);
foreach my $key(@sortedkeys) {
printf("%s: %s (%.2f%%)\n", $key, $scores{$key}, ($scores{$key}/$total)*100);
}
printf("Total: %s\n", $total);

sub get_score_from_file {
my $filename = shift;
open(my $fin, "<", $filename)
or die("Can't open $filename for reading: $!\n");
my $score = -1;
while(<$fin>) {
my $line= $_;
if ($line =~ /^X-Spam-Level: (.*)$/) {
my $stars = $1;
$score = length($stars);
}
last if ($score >= 0);
}
close($fin);
return $score;
}