#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser);
$| = 1;
print "Content-type: text/html\n\n";
print '', "\n";
print "Testausgabe\n";
print "\n";
my $Kind_pid = fork();
if(kill(0,$Kind_pid)) {
print "whate while process
\n";
for (my $i=0;$i<5000000;$i++)
{
}
print ("end for");
kill("KILL",$Kind_pid);
}
else{
while(1)
{
sleep 1;
print ".";
}
}
print "\n";