perl中如何同时执行多个外部命令？

perl中如何同时执行多个外部命令？
如题：
如果想同时执行多个外部调用，像windows下要让
system("a1.cmd"),system("b1.exe"),system("c.cmd")......
同时运行
（即windows系统同时运行
a1.cmd,
b1.exe,
c.cmd,......）
在perl的源程序中该咋样处理？

是不是要用到多线程，目前还没看到这些，请gs们指点，感谢之至！！！

似乎 activeperl 自带了 W.
似乎 activeperl 自带了 Win32::Job,它是可以完成你的任务的,当然多线程或者fork也是可以的
[quote]
use Win32::Job;


my $job = Win32::Job->new;

$job->spawn("cmd", q{cmd /C "date 2005-01-05"});

$job->spawn("cmd", q{cmd /C "time 20:40:00"});

$job->run(10);
[/quote]

use Threads;.