Select Code to Download

foreach (sort @list)
{
     my ($one, $nochop) = split(/\|/, $_);
...

     print "<option value='$one'>$one</option>";
}

unless (open(FILE, "$catdir/categories.dat"))
{
     error_message("Can't find data file - $catdir/categories.dat");
}