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