my $choice = $ARGS[0];

my %choices = ( "dropdown", "Drop Down box", "radio", "Radio Buttons" );

my $select = qq{
      <SELECT name="rating_type" size="1">};

foreach my $c (sort keys %choices) {
  my $checked = ($c eq $choice) ? ' SELECTED' : '';
  $select .= qq{
        <OPTION value="$c"$checked>$choices{$c}</OPTION>};
}

$select .= qq{
      </SELECT>};

return $select;