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

Da und gut isss

HTML_TEIL exit (); # /Vater } else { # Sohn sleep 20; exit (); # /Sohn }