$g = "0110110001101101";
$bob = pack("B*", $g);
print $g . "\n";
print unpack("B*", $bob);

##</code><code>##

open(FH, ">fh");
$g = "0110110001101101";
$bob = pack("B*", $g);
print FH $bob;
close(FH);

open(FH, "fh");
read(FH, $from_file, 2);

print $g . "\n";
print unpack("B*", $from_file), "\n";