This should work:

#!/usr/bin/perl -w

use strict;
use Math::BigInt;

my $number = '38562959738576293875632496';
my $n = Math::BigInt->new($number);
print $n->as_bin(), "\n";
[download]

You may want to remove the '0b' prefix though.