$bob = pack("B*",1110110010010000);
print DATAFILE $bob;