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

chdir("$ENV{'HOME'}/Mail");

for $file (<*/*>){
    $output = `grep From: $file`;
    $towho = `grep To: $file`;
    $ccwho = `grep To: $file`;
    if ($towho =~ /mkgray/ || $ccwho =~ /mkgray/) {
	if($output =~ /From: (.+)/){
	    $from{$1}++;
	    select(STDERR);$|=1;select(STDOUT);
	}
    }
	    print(STDERR ".");

}

while (($name, $times) = each %from){
    print("$name (($times))\n") unless $name=~/mit.edu/i;
}
