Select Code to Download

#! /usr/bin/perl -w

...
for $num( @ARGV ) {
        print "$num base 2 = ", $bin->from_base($num), " base 10\n";
}

% ./b2d 1110010101011101111011110110101010111
1110010101011101111011110110101010111 base 2 = 123140435287 base 10