取消 perl