#!/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;
####
$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/