use strict; use warnings; use File::Slurp; my $abc = 10; open (IN,'>c:/temp/text.bin'); binmode(IN); printf IN "%c", $abc; close (IN); write_file( 'c:/temp/text1.bin', pack ('C*',$abc) ) ;