#!/bin/perl 

use CGI; 
use strict;                  
my $theForm = new CGI;
my @kentat = $theForm -> param;
my $summa;
my $kentta;
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>lomake</title>
  </head>
 <body>";

print "<table border=\"1\">";

for(my $i=0;$i<= $#kentat;$i++){
   $kentta = $theForm ->param(@kentat[$i]);
   print "<tr><td>", @kentat[$i] ,"</td><td>", $kentta ,"</td></tr>";
   if ($kentta =~ m/^[+-]?\d*$/){
       $summa = $summa + $kentta;}
   }

print "<tr><td> lukujen summa </td><td>",$summa ,"</td></tr>";

print "</table>";

print "</body></html>";
