Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -T -- -*- cperl -*-
$==$ENV{'CONTENT_LENGTH'};for(split/&/,($=>0)?(map{read(STDIN,$.,$_)}
$.):($ENV{'QUERY_STRING'})){s;\+; ;g;($:,$,)=map{s;%(..);pack("c",hex
...
."td><td>$_{$_}</td></tr>"}keys%_)."</tbody></table></body></html>";
$_="Content-type: text/html$/$/";print;
  2. or download this
    $;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/