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