$x= "0x0081def509be";

use Math::BigInt;
$d = Math::BigInt->new(hex($x));
print $d , "\n";