многопоточность в перле реализуется просто:
#!/usr/bin/perl -w
use threads;
my @threads = undef;
for my $i (1..3) {
push @threads, threads->create(\&get_now, $i);
}
my $thread = undef;
foreach $thread (@threads) {
$thread->join();
}
sub get_now
{
my $num = shift;
print "thre...