# get_ex2.pl
# Strengurinn $inntak af-urlaður

$inntak = $ENV{QUERY_STRING};
$inntak =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
($heiti,$gildi) = split('=', $inntak);
@ord = sort(split('\+', $gildi));

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 "Upphaflegt innihald þess er: $gildi<br>";
print "og hér eru orðin í stafrófsröð: @ord";
print "</PRE></BODY></HTML>";