#! /opt/third-party/bin/perl

use strict;
use warnings;

use CGI qw/:standard *table/;

my $cgi = CGI->new();

print $cgi->header('text/html');

sub generateHeader {
  print $cgi->start_html(-title=>'Sample Test');
  print $cgi->h3({-align=>'center'}, 'Sample Test Display');
  print $cgi->start_form(-method => 'GET',
                         -id => 'main_form',
                         -name => 'main_form',
                         -action => 'test.cgi',
                         -enctype => 'multipart/form-data');
}

sub submitButtonGenerator {
  my $button_name = shift;
  print $cgi->submit(-value=>$button_name);
}

sub generateFooter {
  my ($i, $tmp);

  print $cgi->end_form();
  print $cgi->hr();

  print $cgi->end_html();
}

sub display {
 my @arr = ('IceCream', 'Choco', 'Biscuit', 'Fruits');
 my $edible_arr = \@arr;

 print $cgi->popup_menu(-name=>'edible',
              -onChange => q/document.getElementById('main_form').submit()/,
                         -values=>$edible_arr);

}

sub displayResult {
  print $cgi->param("edible") . $cgi->br();
}

generateHeader;
display;
print $cgi->br();
print $cgi->br();
submitButtonGenerator("Go");
displayResult;
generateFooter;

exit(0);