use IO::All;
io("io.txt")->binmode(':unix')->print($string);

__END__

$ hexdump.exe -c io.txt
0000000   f   o   o  \n   b   a   r  \n
0000008