#!/bin/perl 

use CGI; 
use strict;                  
my $theForm = new CGI;
my @kentat = $theForm -> param;
my $luku1;
my $luku2;

print "Content-Type: text/html\n\n";
print "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\"
\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">
<html xmlns=\"http://www.w3.org/1999/xhtml\" xml:lang=\"fi\" lang=\"fi\">
  <head>
     <title>lista</title>
  </head>
 <body>";

$luku1 = $theForm ->param("kentta1");
$luku2 = $theForm ->param("kentta2");

print "<p>", "$luku1" , "+" , "$luku2" , "=" , $luku1+$luku2 , "</p>\n";

print "</body></html>"