#!/usr/bin/perl -w

use strict;
use Math::BigInt;

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