After a bit of pain, I ended up with this:

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

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