Put together from the synopsis of those two pages I linked to, but untested:

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

my $output = Compress::Zlib::memGunzip(decode_base64($input));
[download]

#!/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;
[download]

No luck at all.... i surrender. Thanks for all rafl.

Try this. it worked for me. :)

#!/usr/bin/perl -w
use Compress::Zlib;


my $item;
my $zipFileBuffer;
my $gz;
my $gzFile;

$gzFile = "/sample.gz";



$gz = gzopen($gzFile, 'r') or die "Can not gzopen \n";
$gz->gzread($zipFileBuffer) or die "Can not read in gzip file\n";
my $content - Compress::Zlib::memGunzip($zipFileBuffer) or die "unable
+ to Gunzip\n";
print $zipFileBuffer."\n";
$gz->gzclose();
~
[download]