Select Code to Download

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

    sub to_bin {
        my $num = shift;
        my $ret = '';
...
            $num >>= 1;
            }
        }