sub calc_32bit_signed( $value ) {
    return unpack( "l", pack "L", ($value & 0xffffffff)))
}

...

say calc_32bit_signed( $n << 6 );
say calc_32bit_signed( $n + 2 );