Select Code to Download

use strict;

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