open(FILE, "$catdir/categories.dat") || &error_message("Can't find data file - $catdir/categories.dat.");
 	@list = <FILE>;
	 close(FILE);
	@list= sort(@list);

	 $numlist = @list;
	 print "<select size=1 name='catlisting'>";
	 for ($a = 0; $a < $numlist; $a ++)
	         {
	         ($one, $nochop) = split(/\|/, $list[$a]);
	         print "<option value='$one'>$one</option>";
	         }
 print "</select>";
 close(FILE);

##</code><code>##

Categories
Accounting
Attorneys
Automobile-Sales
Automobile-Services
Banks