my $bits = '1010110101';
print OUTFILE pack('B*', $bits);