Select Code to Download

use strict;
use IO::Socket::SSL;
...
sub random {
  print sprintf("Process %d: %d", $$, int(rand(100000))), "\n";
}

$ perl fork_rand.pl
Process 13788: 32768
...
Process 13791: 3778
Process 13792: 32768
Process 13792: 3778

$ perl fork_rand.pl
Process 13806: 94050
...
Process 13809: 71603
Process 13810: 44245
Process 13810: 86800