#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use Fcntl qw(:DEFAULT :flock);
print "Content-type: text/plain\n\n";
my $pid;
if ($pid = fork()) {
        # Eltern brauchen wir nicht mehr
        print STDOUT 'Laeuft...';
        close STDOUT;
        close STDERR;
        exit();
}
else {
        close STDOUT;
        close STDERR;
        # Kind muss arbeiten
        sleep(10);
        sysopen(my $fh,'test_fork_sohn.txt',O_WRONLY|O_APPEND|O_CREAT);
        print $fh 'hier bin ich nach 10 Sekunden';
        exit();
}