#!/usr/bin/perl -wT
###################################################################
# An example of a very simple CGI script
#
use strict;
use CGI::Minimal;
{
my $cgi = CGI::Minimal->new;
my $choice = $cgi->param('choice');
$choice = defined($choice) ? '(you chose "' . CGI::Minimal->htmlize($choice) . '")
' : '';
my $script_name = CGI::Minimal->htmlize($ENV{'SCRIPT_NAME'});
print <<"EOT";
Content-Type: text/html; charset=utf-8
CGI::Minimal "Hello World" Script
CGI::Minimal Example Script ("Hello World")
Select either a or b
$choice
EOT
}