#!/usr/bin/perl -w
use strict;

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

my $input = '******code*****';
my $output = Compress::Zlib::memGunzip(decode_base64($input));
print $output;