Select Code to Download

#!/usr/bin/perl

...
      "<br>",
      "Reaction: ", $reaction || "no reaction",
      $query->end_html;

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

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.

my $query = new CGI;
my $action = lc ($query->param('action'));
...
  my ($string1, $string1 ) = @_;
  my ($string2, $string2 ) = @_;
  warn("string2 = '$string2'");

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