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

##</code><code>##

Content-Type: text/html; charset=ISO-8859-1

<p>1 * 2</p>