while (1) {
	pipe(READER,WRITER);
	READER->autoflush(1);
	WRITER->autoflush(1);

	my $pid = fork();

	if($pid == 0){
		# Child-Prozess
	
		close READER;
		print WRITER $$;
		print "Ich bin das Kind:  ",$$,"\n";
		my $output = system("/usr/bin/firefox file:///home/uname/log/testseite.html");
		# print $output;		
		exit(0);
	}
	else{
		# Parent-Prozess
		print "Ich bin der Vater: ",$$,"\n";
		wait();

		close WRITER;

		my $i = 0;

		my @line = <READER>;
		while (1) {
			print "$i Ich bin der Vater: ",$$,"\n";
			print "$i Und mein Kind ist: ",$line[0],"\n";
			$i++;
			sleep(1);
			if ($i >= 5) {
				$i = 0;
				exit(0);
				# Child killen !
			}
		}
	}
	print "besser dann doch abbrechen.";
	sleep(1);
}