Select Code to Download

sub dec2bin {
    my $str = unpack("B32", pack("N", shift));
...
}
print bin2dec("101")," ",bin2dec("111"),"\n";
print dec2bin(5),    " ",dec2bin(7)    ,"\n";

5 7
101 111