sub dectobin {
    use Math::BigInt;
    my $x = Math::BigInt->new(shift);
    join '', unpack 'B32B32', pack'NN',$x>>32,$x&0xffffffff;
}
print dectobin "12297829382473034410";
[download]

PerlMonks graciously bestowed by Tim Vroom.
PerlMonks is a proud member of the The Perl Foundation.
Marvelous Managed Hosting and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.