How can I display a number in dual representation, e.g. 29 --> 11101?

What would be the easiest way to display a number as dual / binary number?
For example: 29 is to be displayed as 11101.


In PHP this would work:
<?
printf ("%b", 29);
?>

but not so in Perl.
Any idea?

Detlef Lindenthal