use Time::HiRes qw( usleep );
...
while (my $c = $d->accept) {
   threads->create(\&process_one_req, $c)->detach();
   usleep(50_000);
}