sub html_selection {
 print "<select name='Installationen'>\n";
 for (sort(keys(%software))) {
   if (&is_in($_, @installed)) {
       print "<option selected>$software{$_}</option>\n";
     } else {
       print "<option>$software{$_}</option>\n";
     }
   }
 print "</select>\n";
}