defined( my $pid = fork() )
    or die("fork: $!");

if (!$pid) {
    print "CHILD --" . "\n";
    exit;
}

print "PARENT --" . "\n";
waitpid($pid, 0) ;
print "-- PARENT " . "\n";
print "PID - $pid , MAIN PRG --" . "\n";