$ perl -e'
   rand(10);
   if (my $pid = fork()) { waitpid($pid, 0); }
   local ($,, $\) = (", ", "\n");
   print map int(rand(10)), 1..10;
'
8, 3, 9, 8, 8, 2, 3, 8, 4, 8
8, 3, 9, 8, 8, 2, 3, 8, 4, 8