use threads;

while ($c < 100000){
  my $thr=threads->new(\&sys_call,$c);
  $thr->detach();
  $c++;
}

sub sys_call(){
  print "Called: $_[0]\n";
}