#!perl
use strict ;
use warnings;
my $bignum = Math::BigInt->new('1111111111111111111111111');
$bignum->as_hex();
print $bignum ;