$ perl ziptest.pl 9 zip.zip ziptest.pl
Comptession level:
        before: -1, middle: -1, after: 9
ziptest.pl   8    8   -1
  compressed_size:   576
  uncompressed_size: 1449

$ perl ziptest.pl 1 zip.zip ziptest.pl
Comptession level:
        before: -1, middle: -1, after: 1
ziptest.pl   8    8   -1
  compressed_size:   608
  uncompressed_size: 1449

$ perl ziptest.pl 0 zip.zip ziptest.pl
Comptession level:
        before: -1, middle: -1, after: 0
ziptest.pl   8    8   -1
  compressed_size:   1449
  uncompressed_size: 1449