#!/usr/bin/perl -W use strict; use warnings; use IO::Handle; STDOUT -> autoflush (1); use CGI; my $zeit = time; print CGI -> new -> header . <

Bin da um $zeit mit PID $$

HTML_TEIL close STDOUT; # end pipe to webserver if (my $pid = fork ()) { # parent # PID of parent = $$ # PID of child = $pid open (my $fh,">test.parent.$$" . "_fork_to_$pid.txt"); print $fh "test"; # /parent } else { # child # $pid = 0 # PID of child = $$ sleep 10; open (my $fh,">test.child.$$.txt"); print $fh "test"; # /child }