# get_ex1.pl
# innihald fyrirspurnar sent til baka į vefsķšu

$fyrirspurn = $ENV{'QUERY_STRING'};
($heiti,$gildi) = split('=', $fyrirspurn);
@ord = split('\+', $gildi);
$fjoldi=@ord;

print "Content-type: text/html\n";
print "MIME-version: 1.0\n\n";
print "<HTML><BODY>";
print "Heiti innslįttarsvęšisins er: $heiti<br>";
print "Url-kóšaš innihald žess er: $gildi<br>";
print "og fjöldi oršanna žar er: $fjoldi";
print "</PRE></BODY></HTML>";