use Math::BigInt;

sub bin2dec
{
  my ($bin) = @_;
  return Math::BigInt->new("0b$bin");
}
[download]

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Speedy Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.