Perl中的多线程的实现一般有两种办法，而老版本的办法实际上是一种多进程的办法。

一   Thread->New

该办法是传统的老办法，它与folk很类似，新建一个进程时，会把当前内存空间的所有变量都复制一份传到新的进程里面。已实现共享数据。而随着技术的发展，本文不针对该方法做深入研究。

二   IThread

这种方法是通过新建一个新的perl interpreter。 默认情况下，所有的数据和变量是不被线程共享的。 如果想共享一个变量，需通过threads::shared来实现。在使用此方法的时候，需要注意以下三点：

1. 变量默认是不在线程中共享的。
2. 通过"use threads"引用命名空间，不能通过 eval， do， 或者 require。
3. 如果有变量需要共享，必须引用"threads::shared"。 并在定义变量的时候如下：

            my $var1 : shared = "value";

 以下是一个简单的使用perl 多线程的例子。

这个简单的perl主要是新建了4个子线程去做不同的事情，然后调用join方法等待他们执行完成并让线程自动回收。但有时，还是需要结合folk 做一些复杂的工作，下面是关于这个的例外一个demo。

该实例使用了folk 和共享数据等比较高级的用法。

在本文最后，给一个比较留下的perl 多线程的例子：上传文件到文件服务器ftp。