Select Code to Download

 open(FILE, "$datadir/$editlist\.txt") || &error_message("Can't find d
+ata file - $datadir/$editlist\.txt.");
 @list = <FILE>;
...
print <<"END";
</textarea><br>

sub change_list
 {
...
                 }
 }
 close(FILE);