my $bita=pack("C,hex($bit));