#!/usr/bin/perl

use threads;
use threads::shared;
my $num : shared; #расшариваем переменную

$thr = 2;

for(0..$thr) {
   $trl[$_] = threads->create(\&get);
}
for(0..$thr) {
   $trl[$_]->join;
}

sub get
{
   while (1) {
        { lock($num); #блокируем переменную перед увеличением значения
         $num++; }
         print "$num\n";
         #ну и тут собственно делать запрос
   }
}