perldoc threads
use threads;
use Thread;
my $thread1 = new Thread (\\&hello, \'I am thread 1\', 6);
my $thread2 = new Thread (\\&hello, \'I am thread 2\', 6);
foreach($thread1, $thread2) {
$_->join;
}
sub hello {
my ($message, $loop) = @_;
for (1..$loop) { print $message, "\\n"; sleep 1;}
}
что-то вроде этого (я в перл тоже пока зеленый).