# POST-ađferđ:
if ($ENV{'REQUEST_METHOD'} eq 'POST') { 
  read(STDIN, $inntak, $ENV{'CONTENT_LENGTH'});
}
# GET-ađferđ:
else {
  $inntak = $ENV{QUERY_STRING}
};

# $inntak af-urlađ og brotiđ upp:
$inntak =~ tr/+/ /;
$inntak =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
@heiti_gildi = split(/&/, $inntak);

# Vefsíđa send til baka:
print "Content-type: text/html\n";
print "MIME-version: 1.0\n\n";
print "<HTML><BODY>";
foreach $par (@heiti_gildi) {
  ($heiti, $gildi) = split(/=/, $par);
  print "$heiti = $gildi<br>";
}
print "</BODY></HTML>";