#!/usr/bin/perl
use strict;
use warnings;
sub child {
   print("Hey, I'm child $$\n");
   sleep(2 + rand(5));
   print("$$ exiting...\n");
   exit(0);
}

foreach (1 .. 3) {
   my $pid = fork;
   die "fork(): $@, stopped" unless defined($pid);
   child() unless $pid;
}

# Only the parent reaches this point
wait foreach (1 .. 3);

##</code><code>##

Hey, I'm child 1048
Hey, I'm child 1368
Hey, I'm child 424
1368 exiting...
424 exiting...
1048 exiting...