#!/bin/perl -w

my $pid = fork();
if ($pid) {
        print "PARENT --" . "\n";
        waitpid(-1, 0) ;
        print "-- PARENT " . "\n";
} elsif ( $pid == 0 ) {
        print "CHILD --" . "\n";
}
print "PID - $pid , MAIN PRG --" . "\n";

##</code><code>##

PARENT --
CHILD --
PID - 0 , MAIN PRG --
-- PARENT
PID - 53784 , MAIN PRG --