#! /usr/bin/perl -w

use strict;
use Math::BaseCalc;

my $bin = Math::BaseCalc->new( digits => [0,1] );

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

##</code><code>##

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