perl -E 'printf "%016b",123;'
0000000001111011