Help for this page

Select Code to Download

Select or download this

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