# 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);
foreach $par (@heiti_gildi)
{
  ($heiti, $gildi) = split(/=/, $par);
  $breyta{$heiti} = $gildi;
}
print "Content-type: text/html\n";
print "MIME-version: 1.0\n\n";
print "<HTML><BODY>";
print "<h2>Innihald innsláttarsvæða í formi:</h2>";
print "Textalína: $breyta{'textalina'}<br>";
print "Textasvæði: $breyta{'textasvaedi'}<br>";
print "Einval: $breyta{'einval'}<br>";
print "Fjölval A: $breyta{'val_A'}<br>";
print "Fjölval B: $breyta{'val_B'}<br>";
print "Fjölval C: $breyta{'val_C'}<br>";
print "Vallisti: $breyta{'vallisti'}<br>";
print "</BODY></HTML>";