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