#!/usr/bin/perl -W use strict; use warnings; use IO::Handle; STDOUT -> autoflush (1); # sicherheitshalber statt $| = 1; use CGI; my $q = CGI -> new; local $SIG{CHLD} = 'IGNORE'; if (my $pid = fork ()) { # Mutter my $header = $q -> header; print <

Da und gut isss

HTML_TEIL exit (); # /Mutter } else { # Tochter close STDOUT; close STDIN; close STDERR; sleep 20; exit (); # /Tochter }