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

chomp @list; #remove newlines

print "<select size=\"1\" name=\"catlisting\>\n";
foreach my $element ( sort @list ) {
	print "<option value=\"$element\">$element</option>\n";
}
print "</select>";