print <<"HTML";
Content-type: text/html
MIME-version: 1.0

<HTML>
<BODY>
<h3>Umhverfisbreytur vefţjóns:</h3>
<PRE>
HTML

while(($key,$val) = each(%ENV)) {
  print "<B>$key</B>: $val \n";
}

print "</PRE></BODY></HTML>";