#!/usr/bin/perl
print "content-type: text/html \n\n";
use strict;
use warnings;
use CGI;
use CGI::Session qw/-ip-match/;
my $cgi = new CGI;
my $session;
if($cgi->param("failed")){
$session = CGI::Session->load($cgi->param("sessionid"));
$session->load_param($cgi);
}else{
$session = new CGI::Session();
}
my $sessionid = $session->id();
print<
previously selected :
output
my @keywords = $cgi->param("person");
foreach my $x(@keywords){
print "($x)\n";
}
print<
Alex
Robin Hood
Batman