use MIME::Base64;
use Compress::Zlib;

my ($i, $istatus) = inflateInit( -WindowBits => -MAX_WBITS);
my ($decoded, $ostatus) = $i->inflate(decode_base64($code));