Basic perl fork() example

elementary_forking.pl

use strict;
use warnings;

my $child_pid = fork();
if(defined $child_pid && $child_pid > 0) {
    ## Parent
    wait();
    print "p($$) c($child_pid) child finished, exiting\n";
} else {
    ## Child
    foreach(1..60) {
        print "p($$) c($child_pid) child is working\n";
        sleep(1);
    }
}