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

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

##</code><code>##

  { my $q   = $result & 0xFFFF_FFFF ;
    $result = $q <= 0x7FFF_FFFF ? $q : -1 - ($q ^ 0xFFFF_FFFF) ;
  } ;