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]