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