Help for this page

Select Code to Download


  1. or download this
    use constant COMPRESSION_DEFLATED               => 8; # file is Deflat
    +ed
    use constant COMPRESSION_LEVEL_DEFAULT          => -1;
    use constant COMPRESSION_LEVEL_FASTEST          => 1;
    use constant COMPRESSION_LEVEL_BEST_COMPRESSION => 9;
    
  2. or download this
    #!/bin/perl -w
    use strict;
    ...
    }
    
    exit $status;