Select Code to Download

use strict;

...
system("cat packed.str | gzip -9 -c - > packed.str.gz");

 
bytes  file
-----------------
...
81000  unpacked.str
12777  unpacked.str.gz