open(FILE, "$datadir/$editlist\.txt") || &error_message("Can't find data file - $datadir/$editlist\.txt.");
 @list = <FILE>;
 close(FILE);
 $numlist = @list;
 print "<textarea cols=60 rows=5 name='list'>\n";
 $ccc = 0;
 for ($a = 0; $a < $numlist; $a ++)
         {
         ($two, $one, $nochop) = split(/,/, $list[$a]);
         if ($one =~ /.*\@.*\..*/)
                 {
                 print "$two,$one\n";
                 $ccc++;
                 }
         }
print <<"END";
</textarea><br>