use Config qw( ); use constant UV_BITS => $Config::Config{uvsize} * 8; die if $num_bits > UV_BITS; push @fields, pack('B*', substr(("0" x UV_BITS).$field, -UV_BITS));