print dec2bin(2**31);

sub dec2bin {
   my $str = unpack("B64", pack("N", shift));
   $str =~ s/^0+(?=\d)//;   # otherwise you'll get leading zeros
   return $str;
}

##</code><code>##

10000000000000000000000000000000

##</code><code>##

11111111111111111111111111111111