#!/usr/bin/perl

use CGI;

my $query = CGI->new;
my $action = $query->param('action');
my $reaction = $query->param('reaction');

print $query->header,
      $query->start_html,
      "<h1>Result</h1>\n",
      "Action: ", $action || "no action",
      "<br>",
      "Reaction: ", $reaction || "no reaction",
      $query->end_html;

##</code><code>##

my GetLink = 'one&reaction=two';
query string xxx.cgi?action=' + GetLink;

##</code><code>##

No such class GetLink at - line 1, near "my GetLink"
syntax error at - line 1, near "my GetLink ="
Can't find string terminator "'" anywhere before EOF at - line 2.

##</code><code>##

my $query = new CGI;
my $action = lc ($query->param('action'));

.......

elsif ($action eq "one"){
  my ($string1, $string1 ) = @_;
  my ($string2, $string2 ) = @_;
  warn("string2 = '$string2'");

##</code><code>##

elsif ($action eq "one"){
  my $query = CGI->new();
  my $string2 = $query->param('reaction');
  warn("string2 = '$string2'");