Select Code to Download

#!usr/bin/perl
#Ex2_3.plx
use warnings;
...
print ((2&$bin)/2);
print ((1&$bin)/1);
print "\n";

print ((128&$bin)/128);
print ((64&$bin)/64);
print ((32&$bin)/32);
...
print ((2&$bin)/2);
print ((1&$bin)/1);
print "\n";