Jaggudada
##############################perl code
#!/usr/bin/perl -w
use strict;
my @options;
open(FILEIN, ">thefileyouneed.txt");
while(<FILEIN>)
{
chomp; #removes the newline and/or CR
@options = split("\t", $_);
}
print "Content-type: text/html \n\n";
#the next line demonstrates 'here' document quoting...everything is interpolated and newlines etc ignored.
print <<"EOF";
<html>
<body>
<form>
<select>
EOF
while(@options)
{
my $option = shift;
print "<option name=" . $option . " value=" . $option . "\n";
}
print <<"EOF";
</select>
</form>
</body>
</html>
EOF
close(FILEIN);
##################################end perl.
