Select Code to Download

   print bin2dec(0b1101) . "\n";
   print dec2bin(13) . "\n";
...
   sub dec2bin {
       return(sprintf "%b",shift);
   }

   perl -e 'print oct("0b1101") . "\n";'