Select Code to Download

            
my $buffer;
my $gz = gzopen ("$input_dir/$file", 'rb') 
...
}
$gz -> gzclose; 
close DATAFILE;

open (GZIPFILE, "$input_dir/$file") 
    || warn "Can't open zip input file: $file: $!";
...
($output, $status) = $deflator->flush() ; 
$status == Z_OK or die "deflation failed\n" ; 
print (DATAFILE $output) ;