Thank you all. :-)
As you predicted, srand() certainly solved the problem.
In reply to Re: fork(), IO::Socket::SSL and rand() by digmon in thread fork(), IO::Socket::SSL and rand() by digmon