Help for this page
Select Code to Download
Select
or
download this
sub dec2bin { my $num = shift; ... return 0 + join '', reverse @num; }