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

open(OLCC, "/mit/mkgray/.olcc");
while(<OLCC>){
chop;
push(@names, $_);
}

open(OLCR, "olcr list|");
while(<OLCR>){
if(/@/){
	@foo = split('@', $_);
	$name = $foo[0];
	for $n (@names){
		if($n eq $name){
			print("$_");
			}
		}
	}
}