open(DATA,'file') or die $!;
print "<SELECT NAME=foo>";
while(<DATA>) {
  chomp;
  print "<OPTION>$_</OPTION>\n";
}
print "</SELECT>";
close DATA;