my $bit = 256;
for (1..8) {
 $bit /= 2;
 print $dec & $bit;
}