Select Code to Download

2;0 juerd@ouranos:~/tmp$ echo -n 'Hello, ' | gzip -c > test.gz
2;0 juerd@ouranos:~/tmp$ echo 'World!' | gzip -c >> test.gz
2;0 juerd@ouranos:~/tmp$ zcat test.gz
Hello, World!

use Some::Module;
$scalar = compress("Hello, ");
$scalar .= compress("World!\n");
print uncompress($scalar); # Hello, World!\n

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$