local $SIG{CHLD} = "IGNORE";
if (my $pid = fork) {
}
else {
    print "child ($$)";
    # mach was aufwaendiges
    close STDOUT;
    close STDERR;
    close STDIN;
    CORE::exit;
}
# parent