use strict;

##</code><code>##

use CGI qw/:standard/;

##</code><code>##

my @parameter_list = param();

##</code><code>##

my $text = param('textbox_name');

##</code><code>##

my @selection = param('select_list_name');

##</code><code>##

sub show_context {
  if (wantarray()) {
    print "List context\n";
  }
  elsif (defined(wantarray())) {
    print "Scalar context\n";
  }
  else {
    print "Boolean (scalar) context\n";
  }
}