With perl 5.6 and later you can also do this for dec2bin:

    sub dec2bin {
        return sprintf "%b", $_[0];
    }
[download]

--
John.