write_file('c:/temp/text1.bin', { binmode => ':raw' }, pack 'C*', $abc);