How can I share data between threads?

I w开发者_如何学编程ant to share data between two threads. How can we do that?

Give some simple program.

---

perldoc perlthrtut contains some excellent examples on how to use threads, shared variables, semaphores and queues.

---

Use threads::shared. See perldoc.