Select Code to Download

#!/bin/perl -w
use strict;
...
}

exit $status

$ perl ziptest.pl 9 zip.zip ziptest.pl
Comptession level:
...
ziptest.pl   8    8   -1
  compressed_size:   1449
  uncompressed_size: 1449