#!/afs/athena/contrib/perl/p

for $folder (</mit/mkgray/Mail/N*>){
    @msgs = (<$folder/*>);
    print(($#msgs+1)." messages in $folder\n") unless ($#msgs == -1);
}