optgroup with Perl CGI

alokranjan has asked for the wisdom of the Perl Monks concerning the following question:

Hi All,

I have a folder "items" under which I have files like: fruit and animal containing the names of fruits and animals respectively. Now I want to use optgroup select option.

#!/usr/bin/perl

print "Content-Type: text/html\n\n";
my @filename = split("\n", `ls items`);

print <<HTML

<html>
<body>
<select>
HTML

foreach(@filename){
print <<HTML
  <optgroup label="$_">
HTML

        open my $info, "items/$_" or die "Could not open $_: $!";
        while( my $line = <$info>)  {
print <<HTML
    <option value="$line">$line</option>
HTML
    }
}

print <<HTML
  </optgroup>
</select>
</body>
</html>

HTML
[download]

Can anyone please suggest me what went wrong. Many thanks in advance !!

Regards, Alok

Comment on optgroup with Perl CGI Download Code

Replies are listed 'Best First'.
Re: optgroup with Perl CGI by Anonymous Monk on Oct 10, 2015 at 12:04 UTC
print <<HTML;	[reply]
Re^2: optgroup with Perl CGI by alokranjan (Acolyte) on Oct 10, 2015 at 12:59 UTC
thanks for help. I never realized I forgot ; :( such a bad day .	[reply]