print bin2dec(0b1101) . "\n";
   print dec2bin(13) . "\n";

   sub bin2dec {
       return(sprintf "%d",shift);
   }

   sub dec2bin {
       return(sprintf "%b",shift);
   }

##</code><code>##

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