Help for this page
#!perl ... print dec2bin($ARGV[0]), "\n"; __END__
# multiplication algorithm to convert decimal number to binary our @dec2bin1 = qw(0 1 10 11 100 101 110 111 1000 1001); ... } $sgn . $b; }