sub g_zip {
my $file = $_;
my $data;
my $ptr = new IO::Uncompress::Gunzip($file) or die $!;

while (defined (my $line = $ptr->getline())) {
     $data .= $line;
    }
$ptr->close();
return $data;
}