D:\>perl -e "$d=0b01010101; printf qq(%08b),$d"