Select Code to Download

use strict;
use warnings;
...
$ratio = 100*( length $s2 )/( 65*1024*1000 );
printf "random output compressed to %.1f%%\n", $ratio;

           Rate   random original
random   2589/s       --     -65%
...

original output compressed to 5.2%
random output compressed to 57.7%