#!perl
# process.cgi
use strict;
use CGI;
my $q = CGI->new;
print $q->header;
print $q->start_html,
'Data returned is '.$q->param('value1'),
$q->end_html;