Select Code to Download

 my ($int1,$int2)=unpack('NN',shift());
    my $sign=($int1&0x80000000);
...
    $i*=2**32;
    $i+=$int2;
    $i=-$i if $sign;

my $i=new Math::BigInt shift();
my($int1,$int2)=do {
...
  }
};
pack('NN',$int1,$int2);