#! perl
use strict;
use warnings;
use Math::BigInt;

my $n = Math::BigInt->new('0x3BFA281009296F2');
print $n->as_hex(), ' = ', $n->bstr(), "\n";