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

## parameters

@args_default = ('rumor');

@args = @ARGV || @args_default;

## code

@args || die "Needs at least one argument (mailing list name)!\naborting";

for $list (@args) {
    open(EXPN, "expn.pl $list |")
	|| die "Can't run expn.pl for '$list'!\naborting";
    while (<EXPN>) {
	if (/^250[- ]<(.*)@PO.\.LOCAL>/) {
	    print "$1\n";
	}
    }
}