#!/usr/bin/perl -T -- -*- cperl -*-
$==$ENV{'CONTENT_LENGTH'};for(split/&/,($=>0)?(map{read(STDIN,$.,$_)}
$.):($ENV{'QUERY_STRING'})){s;\+; ;g;($:,$,)=map{s;%(..);pack("c",hex
$1);ge;$_}split(/=/,$_);$_{$:}=$,;}$\="$/CGI home"
."work".(join$/,map{"| $_ | $_{$_} |
"}keys%_)."
";
$_="Content-type: text/html$/$/";print;