$ perl -E 'say sprintf "%010b", $_ for 8, 1008'
0000001000
1111110000