perl -wle'
for my $id (1 .. 10) {

my $pid = fork();
unless (defined $pid) {
    die "Could not fork $!";
}
elsif (!$pid) {
    sleep rand(2);
    print "child $$";              
     exit;
}
else {
  print "parent $$ forked $pid";
}
}'