#!/usr/local/bin/perl -w
# env-child.pl -- Informationsuebergabe von Eltern- zu Kindprozess
#           ueber Umgebungsvariablen zum fork()-Zeitpunkt.

print "$$: Information? "; chomp($ENV{'MYINFO'} = <STDIN>);
if (fork()) {
    # Elternprozess wartet auf Kindprozess
    wait;
} else {
    # Kindprozess gibt die geerbte Information wieder aus
    print "$$: Info was $ENV{'MYINFO'}\n";
}