Select Code to Download

use open OUT => ':raw';

use open OUT => ':raw:perlio';

BEGIN {
    if ($] >= 5.008) {
...
        'open'->import(OUT=>":raw:perlio");
    }
}

binmode($s)
    unless ($] >= 5.008);