#!/usr/bin/env perl
use strict;
use warnings;
use CGI qw/:standard/;
use CGI::Carp qw/warningsToBrowser fatalsToBrowser/;

print header;

warningsToBrowser(1);

print start_html('All those inputs...');

print "All inputs, ", code("Dump()"), "ed out:", p;
print Dump();


print "Retrieving number of parameters: ", br;
my $params = param();
print "There were $params parameters passed to this script", p;

print "Retrieving names of all parameters: ", br;
my @names = param();
print "Names of all parameters: ", join(', ', @names), p;

print "Retrieving one parameter:", br;
my $text = param('MyText');
print "Text field: $text", p;

print "Retrieving multi-valued parameter:", br;
my @t = param('transportation');
print "The values of the select are: ", join(', ', @t), p;


print end_html();