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);
}