use open OUT => ':raw';

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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