#!/usr/bin/perl

use strict;
use warnings;
use CGI qw();

my $na = CGI::param('v1');
my $nb = CGI::param('v2');
my $oper = CGI::param('oper');

print CGI::header();
print "<p>$na $oper $nb</p>\n";