Add perl thread queue example