Select Code to Download

#!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;
}