#!/usr/local/bin/perl5 -w $count = @ARGV; if ( $count != 1 ) { print STDOUT "$0 cancelled - missing or invalid argument: @ARGV\n"; print STDOUT "Correct syntax: $0 listowner-email-address"; exit; } ($#ARGV < 0 ) and die "Usage: $0 <email-address-of-owner-to-find-in-lists>\n"; $home_dir="/usr/products/listserv/home"; chdir $home_dir; opendir(DIR,".") or die "Unable to open listserv directory: $!"; @files=grep (/.*\.list$/,readdir(DIR)); closedir(DIR); print "Searching for lists owned by $ARGV[0]\n"; foreach $filename ( @files ) { open (CUR,$filename) or die "Unable to open $home_dir/$filename\n"; while ( <CUR> ) { (/Owner=[^*]*$ARGV[0]/io) and print "$filename\n"; } close CUR; } exit;