#!/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;