gistfile1.txt

use strict;
use warnings;
use List::Util;
use String::Random;

List::Util::shuffle(1, 2, 3);

my @pids;
for my $counter ( 1..3 ) {
    my $pid = fork();
    if ( $pid > 0 ) {
        push @pids, $pid;
    } else {
        warn $$ . ": " . rand();
        warn String::Random->new->randregex("[a-zA-Z0-9]{10}");
        exit;
    }
}

wait for @pids;