a perl thread example