safeSend.sol

pragma solidity ^0.4.11;

contract Payer {

    function pay(address _a)  payable {
        secureSend(_a, msg.value);
    }
    
    function secureSend(address a, uint v) internal {
        if (v < address(this).balance) throw;
        assembly {
            let x := mload(0x40)   //Find empty storage location using "free memory pointer"
            mstore8(x,0x7f) //PUSH32
            mstore(add(x,1), a)
            mstore8(add(x,0x21), 0xff) // SELFDESTRUCT
            let payer := create(v, x, 0x22)
    
            jumpi(err, eq(payer, 0))
        
            jump(end)
        err:
            invalid()
        end:
        }
    }
}