#!/bin/perl -w


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>";

my %taulukko = ("Bolognese" => ([6.2,11.6]) , "Frutti" => ([6.4,12.1]), "Romeo" =>
([6.55,1]));
my @pizzat = sort (keys %taulukko);

print
"<table border=\"1\" cellspacing=\"1\"><tr><td>Pizza</td><td>Hinta<br/>Normaali</td><td>Hinta<br/>Perhe</td></tr>";
print "<tr><td>", "$_", "</td>", "<td>" , $taulukko{$_}[0] ,"</td>" ,
      "<td>", $taulukko{$_}[1] , "</td></tr>\n" foreach @pizzat;
print "</table>";
print "</body></html>\n";