Select Code to Download

$html .= qq{<select name="my_parameter">\n};
for my $option ( ['option1', 'Option 1'],
...
 }
}
$html .= "</select>\n";

 $html .= qq{<option value="$option->[0]"} .
                 ($option->[0] eq $existing_value ?
                  ' selected' : '') .
                 qq{>$option->[1]</option>\n};

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$