my $zip = Archive::Zip->new();
  $zip->addFile($renamed_file)->desiredCompressionLevel(0);    
  if( $zip->writeToFileNamed($zip_filename) != AZ_OK ) {     print "write error...$!"; }
      print "Added $renamed_file to $zip_filename\n";
}

##</code><code>##

Can't call method "desiredCompressionLevel" on an undefined value at /home/fds/lang/perl/fdsPerl-20100809/lib/site_perl/5.12.1/Archive/Zip/Archive.pm line 249.
 at /home/fds/lang/perl/fdsPerl-20100809/lib/site_perl/5.12.1/Archive/Zip/Archive.pm line 249
        Archive::Zip::Archive::addFile('Archive::Zip::Archive=HASH(0x149ff318)', 'vm.don') called at ve.pl line 75