#!/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" => 329, "Italiano" => 12, "Siciliana" => 22, "Napolitana" => 23);
my @pizzat = sort (keys %taulukko);
print "<ul>";

print "<li>", "$_", "</li>" foreach @pizzat;   
print "</ul>";
print"</body></html>\n";