#!/usr/bin/perl
use strict;
use warnings;
use Math::BigInt;

my $data=pack('LL',0,12345678);

my $str=unpack('H16',$data);
my $c = Math::BigInt->from_hex($str);

print "$c\n";