Perl script that transforms a list of strings into an HTML select element

txt2optionhtml.pl

#!/usr/bin/perl
use HTML::Entities;
print "<select>\n";
while (<STDIN>) {
  chop;
  $s = encode_entities($_);
  print "<option value=\"$s\">$s</option>\n";
}
print "</select>\n";