#!/usr/bin/perl -w

($#ARGV < 0 ) and die "Usage: $0 <email-address-of-owner-to-find-in-lists>\n";

chdir "/usr/local/lib/listserv/home";
opendir(DIR,".") or die "Can't open listserv directory: $!";
@files=grep (/.*\.list$/,readdir(DIR));
closedir(DIR);

foreach $filename ( @files ) {
  open (CUR,$filename) or
    die "You probably need to be running as root or listserv:$!";
  while ( <CUR> ) {
    (/Owner=[^*]*$ARGV[0]/o)
      and print "Found in list $filename\n";
  }
  close CUR;
}