sub dec2bin { my $str = unpack("B32", pack("N", shift)); return substr($str, -6); }