#!/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(); }