my $upload_filehandle = $query->upload("filename");

open UPLOADFILE, ">$upload_dir/$uldate";

binmode UPLOADFILE;

my $x = deflateInit()
       or die "Cannot create a deflation stream\n" ;

my ($output, $status) ;


while ( <$upload_filehandle> )
 {
        ($output, $status) = $x->deflate($upload_filehandle) ;
    
        $status == Z_OK
            or die "deflation failed\n" ;

   print UPLOADFILE;
 }