my $result = 1729080737 + 72 * 14 * 425567  + 0xFFFF_FFFF ;

print $result, "\n" ;
print $result & 0xFFFF_FFFF, "\n" ;
print unpack('l', pack('l', $result)), "\n" ;