#!/usr/local/bin/perl -w
# process-id.pl -- Reservierte Variable $$ (Prozess-ID)

# Initialisiere den Zufallszahlengenerator anhand der
# aktuellen Zeit und der Prozess-ID:
srand($$ ^ time);

# Eltern/Kind-Beziehung:
if (fork()) {
    # Hier ist der Elternprozess:
    print "Parent($$)\n";
} else {
    # Hier ist der Kindprozess:
    print "Child($$)\n";
    exit 0;
}