my $bfile = "c:\\backups\\datafile_01.dbf";
 my $fsize = floor((-s $bfile) / 1024);
 my $bfiledst = $bfile . ".zip";

 my $zip = Archive::Zip->new();
 my $member = $zip->addFile($bfile, $bfile);
 $member->desiredCompressionMethod( COMPRESSION_DEFLATED );
 $member->desiredCompressionLevel( 9 );
 push @summary, "Error compressing $bfile\n" if ($zip->writeToFileNamed($bfiledst) != AZ_OK);
 my $cfsize = floor((-s $bfiledst) / 1024);
 print "Compressed $bfile ($fsize K) to $bfiledst ($cfsize K)\n";